Skip Menu |

This queue is for tickets about the Encode CPAN distribution.

Report information
The Basics
Id: 28780
Status: resolved
Priority: 0/
Queue: Encode

Owner: DANKOGAI [...]
Requestors: aletellier [...]

Bug Information
Severity: Critical
Broken in: 2.23
Fixed in: (no value)

Subject: issue converting EUC-KR to ISO-2022-KR
Download (untitled) / with headers
text/plain 272b
Converting from EUC-KR to ISO-2022-KR always adds $)C at the beginning of the line, . $)C24788876 992268 aldo letellier >H3gGO=J can reproduce using piconv too piconv -f EUC-KR -t ISO-2022-KR korean_euc_kr.txt > korean_iso_2022_kr.piconv.txt Attached files Aldo
Subject: korean_euc_kr.txt
Download korean_euc_kr.txt
text/plain 328b
PROFILE_ID PLIST_ID PROFILE_KEY EMAIL_ADDR KOREAN_TEXT 24788877 992268 ¾È³çÇÏ½Ê 24788878 992268 1 24788876 992268 ¾È³çÇϽÊ
Subject: korean_iso_2022_kr.piconv.txt
$)CPROFILE_ID PLIST_ID PROFILE_KEY EMAIL_ADDR KOREAN_TEXT $)C24788877 992268 >H3gGO=J $)C24788878 992268 1 $)C24788876 992268 >H3gGO=J
From: aletellier [...]
Download (untitled) / with headers
text/plain 711b
Narrow the issue to this "Encode::KR::2022_KR::euc_iso" function call, the line: substr( $$r_str, 0, 0 ) = $ESC{'2022_KR'}; Inserts the escape sequence in the beg of the string? It should insert in the beg of each korean word. ..... sub euc_iso { no warnings qw(uninitialized); my $r_str = shift; substr( $$r_str, 0, 0 ) = $ESC{'2022_KR'}; # put the designator at the beg. $$r_str =~ s{ # move KS X 1001 characters in GR to GL ($RE{EUC_C}+) # and enclose them with SO and SI }{ my $str = $1; $str =~ tr/\xA1-\xFE/\x21-\x7E/; "\x0e" . $str . "\x0f"; }geox; $$r_str; }

This service is sponsored and maintained by Best Practical Solutions and runs on infrastructure.

Please report any issues with to