PERLCN(1) Perl Programmers Reference Guide PERLCN(1)
NAME
perlcn - 1/4`o`Ioa"O-D^I"A Perl "O,"A"I
DESCRIPTION
>>9|'O`A',u1/2 Perl ,u"A`I`i,u/O!
''O 5.8.0 oae'ca^E1/4, Perl 3/4B+-,'A"E'I^e'EAE,u"A Unicode ('I3`O>>^A"e) "OS^O(R),
`O2'A~'/o"OS^O(R)'A"E-D'i9|`a`A9|,i'O"i"I,u`O^O'I^a,u"A+-`a^A"e.1/2^E1/2; CJK ("O-D`E~Oo<<)
+-~a^E,CAE"a"O-D,u"A`O>>2'c.'Y. Unicode ^E,C1'u1/4^E-D^O,u"A+-^ex1/4, ^E^O'I1/4o-
,,C^E`A1/2,c'E"I"E`u'O-D,u"Ax"O.^u: ^I-:-.1/2^E`A1/2,c, 9|<<.1/2^E`A1/2,c,
`O^O1/4o'A1/2~OB1/4"a,u"A`O>>,C-D ("I-L`Ao^I"A, -D`'o`A^u~N,C^I"A, ~N,C`A2(R)^I"A, "I-L2(R)`A'^I"A,
'O,i9|`E^I"A, 'O,i,u/Oo2^I"A, ,u`E,u`E). "E"u`O2`E'Y"A'E'A"E9|`a"O"Ox-:-`O,u"I,u'I3'O"eAE1/2`I" (`E,c PC
1/4o^A'o1/2`'o"Epb).
Perl +-3/4'E'i`O^O Unicode 1/2/o-D-D2`Ux-:-. ~O^a+-'i^E3/4 Perl
"A'U2'c,u"Ax"O.^u'(R)^E'y3/4'Y'c'E'O~A Unicode +-'i^E3/4; Perl ,u"Ao ^E1/2'O"e"E~a.^u
(`A'y`E,c~O'y1ae+-'i^E3/4^E1/2+-`E9|^O) `O2"A"U9|^O Unicode 1/2/o-D-D2`Ux-:-.
^O'U^E"a`E"e1/4o^E"a3"o^E+-, ^Ia'A"E'|`A'i`O^O Unicode
"O(R),Co,u"A+-`a^A"e.1/2^E1/2'ae.oA,u"A^E'y3/4'Y, Perl `I'a1(C)'A"E Encode ~O^a,"o"A-L'c'e,
'c'E`O^O`E~A"A~a,C'a`Ox,u/O9|'A`E,i1/4o-D'`E"e3/4'E'O-D,u"A+-`a^A"e^E'y3/4'Y.
Encode ~N'O'E`i"A-L'c'e"OS^O(R)"I^A'A-D1/4`o`Ioa"O-D^I"A,u"A+-`a^A"e.1/2^E1/2 ('gb2312' +-'i^E3/4
'euc-cn'):
euc-cn Unix ~N'O'E`ix"O.^u1/4 , `O23/4'I^E,C"Ex3AE,u"A1'u+-^e^A"e
gb2312-raw ^I'3/4'|`A'i,u"A (,u'I+-`E`I/O) GB2312 x"O.^u+-'i
gb12345 ^I'3/4'|`A'i,u"A"O-D1'u'O~A.+-`Ioa"O-D^I"A+-`a^A"e
iso-ir-165 GB2312 + GB6345 + GB8565 + -D^A^O"ox"O.^u
cp936 x"O^A"e`O3 936, `O2'c'E`O^O'O~A 'GBK' (`A(C)3"a1'u+-^e^A"e) "O,~A-:-
hz 7 +-`E`I/O`O'Y3"o^E1/2 GB2312 +-`a^A"e
3/4`U`A'y`A'"E,u, 1/2<< EUC-CN +-`a^A"e,u"A,u,uo,xa3'E Unicode, `i'o-D`e1/4"u`E"e"I^A'A-D"O,'A^i:
perl -Mencoding=euc-cn,STDOUT,utf8 -pe1 < file.euc-cn > file.utf8
Perl `O2"A'U,1/2'A"E "piconv", `O>>"OS'I^e`E<<`O^O Perl -D'3'E,u"Ax"O.^uxa>>>>1ox3/4B3`I-D`o,
'O~A."`E,c"I^A:
piconv -f euc-cn -t utf8 < file.euc-cn > file.utf8
piconv -f utf8 -t euc-cn < file.utf8 > file.euc-cn
'A'i'I^a, `A^u'O~A encoding "A-L'c'e, "A~a'c'E`O^O,C'a`Ox-D'3"o`O^Ox"O.^u^Ia,u=Y^I>>,u"A3`I-D`o^A"e,
`E,c"I^A"E`u^E3/4:
#!/usr/bin/env perl
# AE^o9| euc-cn x"O'(R)1/2^a^I"o; +-^ex1/4^E"a3"o`E"e1/4o+-^ex1/4''i^I'o9|1/4'E`e^Ia euc-cn +-`a^A"e
use encoding 'euc-cn', STDIN => 'euc-cn', STDOUT => 'euc-cn';
print length("^Aae'I~O"); # 2 ("E<<`O'yooA+-'i^E3/4x"O.^u)
print length('^Aae'I~O'); # 4 (,u=Y`O'yooA+-'i^E3/4x"O1/2'U)
print index("x>>x>>1/2`I>>oa", ">>x>>1/2"); # -1 (2>>o"uo~'"Ex'Ox"O.^u'(R))
print index('x>>x>>1/2`I>>oa', '>>x>>1/2'); # 1 (''O,u'U9|pb,"ox"O1/2'U'ca^E1/4)
^O'Ux^io'o`O>>'A-D`A'yx'O`A"i, "x>>" ,u"A,u'U9|pb,"ox"O1/2'U'O"e "x>>"
,u"A,u'U`O>>,"ox"O1/2'U1/2'ao"I3'E EUC-CN ^A"e,u"A ">>x"; "x>>" ,u"A,u'U9|pb,"ox"O1/2'U^O`o'O"e
"1/2`I" ,u"A,u'U`O>>,"ox"O1/2'U1/2'ao"I3'E ">>1/2". ~O^a1/2^a3/4"o'A"E`O^O,Co EUC-CN
^A"e+-`E9|^O'|`A'i'E"I3-L1/4^u,u"A^I^E`I^a.
99||^^ii''II^^aa,,uu""AA""OO-DD^^II""AA++-``aa^^AA""ee
`E,c1^u-D`e`Oa,"u9|`a,u"A"O-D^I"A+-`a^A"e, 'c'E`O^O''O CPAN () "I^A^O/O
Encode::HanExtra "A-L'c'e. "E"u"A'c,Co`I'a1(C)"I^A'A-D+-`a^A"e.1/2^E1/2:
gb18030 `A(C)3"a1'y,u"A1'u+-^e^A"e, o"uo~.+-`Ioa"O-D^I"A
'A'i'I^a, Encode::HanConvert "A-L'c'e^O`o`I'a1(C)'A"E1/4`o.+-xa>>>>'O~A,u"A'A1/2"O"O+-`a^A"e:
big5-simp Big5 .+-`Ioa"O-D^I"A'O"e Unicode 1/4`o`Ioa"O-D^I"A>>=Yxa
gbk-trad GBK 1/4`o`Ioa"O-D^I"A'O"e Unicode .+-`Ioa"O-D^I"A>>=Yxa
`E^o"I"e^O'U GBK 'O"e Big5 "O(R)1/4"a>>=Yxa, ,C"e2^I'c1/4,~A"A-L'c'e"A'U,1/2,u"A b2g.pl 'O"e
g2b.pl 'A1/2"OS3`I-D`o, >>`o^O'U3`I-D`o"A'U^E1'O~A"I^A'A-D-D'.":
use Encode::HanConvert;
$euccn = big5togb($big5); # ''O Big5 xa^Ia GBK
$big5 = gbtobig5($euccn); # ''O GBK xa^Ia Big5
11//22//oo``OO>>>>2211//22,,uu""AA-DDooAA""II//cc
,C"e2^I'c1/4 Perl "A'U,1/2,u"A''o'A'c"E,u~A-:-^I"A1/4pb (2>>-D`O`E<<^E,C'O~A'O/c^I"A-D',u"A),
`A'~NS"Io,"u9|`a1/O'O'U Perl ,u"A"Oa^E9|, `O^O1/4o Unicode ,u"A^E1'O~A.1/2^E1/2. 2>>1'y,
'I^a2'c,u"Ax^E^O'"I`a,u+-.'a,>>:
``II''aa11((CC)) PPeerrll xx^^EE^^OO'',,uu""AA''II//oo""OO..
Perl ,u"A^Ex`O3 ('O'EoA.`A3`A~n1<<"E3/4^I~>>ox)
Perl x^Uo"I,u"a2/O'I/o (Comprehensive Perl Archive Network)
Perl 'O^E,u'Y^A^U`I3`O>>`A`A
~~NNSS""IIoo PPeerrll ,,uu""AA''II//oo""OO..
1/4`o`Ioa"O-D^I"Aoae,u"AoA.`A3`A~n Perl ^E'e1/2oa
PPeerrll ^^EE11''OO~~AA~~OOBB11//44 >>>>''aa
"O-D1'u Perl 'IAE1~ax'e`O>>`A`A
UUnniiccooddee ""II``aa11//OO''II//oo""OO..
Unicode ~NS^E~o~NS>>'a (Unicode +-^ex1/4,u"A"OAE9|"~OB)
Unix/Linux 'E"I,u"A UTF-8 1/4o Unicode '`'o'c'I^I^E
SEE ALSO
Encode, Encode::CN, encoding, perluniintro, perlunicode
AUTHORS Jarkko Hietaniemi
Autrijus Tang (`IAEx'Uoo)
perl v5.8.6 2004-11-05 PERLCN(1)