|
예를 들어, euc-kr 인코딩으로 된 파일을 UTF-8로 변환하려면 다음과 같이 하면 됩니다.
perl -Mencoding=euc-kr,STDOUT,utf8 -pe1 < file.euckr > file.utf8
역변환은 다음과 같이 할 수 있습니다.
perl -Mencoding=utf8,STDOUT,euc-kr -pe1 < file.utf8 > file.euckr
이런 변환을 좀더 편리하게 할 수 있도록 Encode 모듈을 써서
순수하게 Perl로만 쓰인 piconv가 Perl에 들어 있습니다.
그 이름에서 알 수 있듯이 piconv는 Unix에 있는 iconv를
모델로 한 것입니다. 그 사용법은 아래와 같습니다.
piconv -f euc-kr -t utf8 < file.euckr > file.utf8
piconv -f utf8 -t euc-kr < file.utf8 > file.euckr
또, 'PerlIO::encoding' 모듈을 써서 한국어 인코딩을 쓰면서 글자 단위
(바이트 단위가 아니라) 처리를 쉽게 할 수 있습니다.
#!/path/to/perl
use encoding 'euc-kr', STDIN => 'euc-kr',
STDOUT-> 'euc-kr', STDERR=>'euc-kr';
print length("가나"); # 2 (큰 따옴표는 글자 단위 처리를 지시)
print length('가나'); # 4 (작은 따옴표는 바이트 단위 처리를 지시)
print index("한강, 대동강", "염"); # -1 ('염'이 없음)
print index('한강, 대동강', '염'); # 7 (8번째와 9번째 바이트가 '염'의
코드값과 일치함.)
|
|
