PERLTW(1) Perl Programmers Reference Guide PERLTW(1)

NAME
       perltw - =Y'coA'eoxoxoxoa Perl <<"u<
DESCRIPTION
       oAwa"i"'O"`i Perl aoox~N|a!

       +-q 5.8.0 a(C)9|}(C)l, Perl "~a3AEoxFS1,u1/2ao Unicode (,Uo^e1/2X) ox"a'(C),
       ox]3s+-aox"a'(C)oxF3\|h(C)^OoxB>>y"t=YH=Y~ao1/2s1/2Xox`e|,i; CJK (oxoxox'e'A'u)
       <>'U(C)^Eao1/4-D.,C,
       ,~O1"I2[>>\=Y@~'EoxW(C)`O|3ao|r2oA: |`eox`e=Y@~'E, aFox`e=Y@~'E, =YHox^I"^aa`I9|,iaoox@ox'A
       (SAE~A3/4oxoa, +-^OSQ"`Eoxoa, a"u(C)^OSBoxoa, SAESB"'Ooxoa, |L<
       =Y|ox](R)e ,CoxF|ho/OS@.~"t2^I>>P=Y>>O (|p PC ox^I3'Aa-:-9|`'o).

       Perl =Y>>"=YH Unicode 9|i|ae3/4IbS@. 3oa'i=Y"U Perl oxo3,iao|r|^e,^e(R)AE=Yi=Y^I
       Unicode a'i=Y"U; Perl ao",c|,i>>Po^a2oA ("`O|p=Y'c3Wa'i=Y"U|,iox~n1"i) ox] `a1"i Unicode
       9|i|ae3/4IbS@.  |b'c'eoxJox^I'c'e=YX(R)'E, ~ooxF3B2z=YH Unicode
       oxS<       =Yi=YHoA'ySA>>'(C)"o|aoAa"'uox^I1/4goxJ^A^A|3ao1/2s1/2X,^e(R)AE.

       Encode (C),u|`u1/4`O2~Oox"a'(C)oxU|C=Y'coA'eoxoxoxoaao1/2s1/2Xox`e|,i ('big5' a'i=Y"U
       'big5-eten'):

           big5-eten   Big5 1/2s1/2X (St^Eox~N(C),u|`u|rS^I)
           big5-hkscs  Big5 + >>'"a=Y~|r9|o, 2001 |~a(C)
           cp950       |r1/2X9| 950 (Big5 + .L3n2K=Y[ao|r2oA)
                                                         
       'A|"`O"'O>>,i, +-N Big5 1/2s1/2Xao`A'E(R)x^A`a|" Unicode,  >>'Y'A"aoxJoxU|C<<"u=YO:

           perl -Mencoding=big5,STDOUT,utf8 -pe1 < file.big5 > file.utf8

       Perl ox]oxoapboxF "piconv", ox@ox"aS1=Ypb=YH Perl 1/4g|"ao|r2oA^A`a'<           piconv -f big5 -t utf8 < file.big5 > file.utf8
           piconv -f utf8 -t big5 < file.utf8 > file.big5

       =Yt=Y~, SQ=Y^I encoding 1/4`O2~O, SA=Yi=YH>>'(C)"o1/4g=YX=YH|r2oA~o3ae|`iao,u{|,i1/2X,
       |poxU(C)`O=Y"U:

           #!/usr/bin/env perl
           # +-`Oo^E big5 |r|^e,~NaR; 1/4-D.,C'c'e=YXoxJox^I1/4-D.,C'c`u>>~3-L3]~o big5 1/2s1/2X
           use encoding 'big5', STDIN => 'big5', STDOUT => 'big5';
           print length("`Ad3/4m");            #  2 (^A`uoxIb,1a'i=Y"U|r2oA)
           print length('`Ad3/4m');            #  4 (3aeoxIb,1a'i=Y"U|`iox,2~O)
           print index("1/2^I1/2^I+-D>>-L", "^I1/2^I+-"); # -1 (ox-L=Y]St|1oxl|r|^e)
           print index('1/2^I1/2^I+-D>>-L', '^I1/2^I+-'); #  1 (+-q2"AoxG'O|`iox,2~O9|}(C)l)

       |b3`I<<'aox@|C"`Ooxl,`I, "1/2^I" ao2"AoxG'O|`iox,2~O>>P "1/2^I" ao2"Aox@'O|`iox,2~O,u2|X|"
       Big5 1/2Xao "^I1/2"; "1/2^I" ao2"AoxG'O|`iox,2~O<>P "+-D" ao2"Aox@-
       'O|`iox,2~O,u2|X|" "^I+-".  3o,~N"MoxF=YH<
       ~~AABB==YY~~aaooooxxooxxooxxooaa11//22ss11//22XX

       |paG>>'YnS'o|haooxoxoxoa1/2s1/2X, =Yi=YH+-q CPAN () oxU,"u
       Encode::HanExtra 1/4`O2~O. =Y|=Y/O<
           cccii       1980 |~oxoa<           euc-tw      Unix (C),u|`u|r2oA9|o, =Y]St CNS11643 =Y+- 1-7
           big5plus    oxoxoxoa1/4AE|`ioxAESIb3N+-`A1/4so`oa-:-.|ao Big5+
           big5ext     oxoxoxoa1/4AE|`ioxAESIb3N+-`A1/4so`oa-:-.|ao Big5e

       =Yt=Y~, Encode::HanConvert 1/4`O2~O<
           big5-simp   Big5 =Y'coA'eoxoxoxoa>>P Unicode ^A2oA'eoxoxoxoaox~^A`a
           gbk-trad    GBK ^A2oA'eoxoxoxoa>>P Unicode =Y'coA'eoxoxoxoaox~^A`a

       Y.Q|b GBK >>P Big5 oxS9|,iox~^A`a, 1/2-Do~N|`O,'O1/4`O2~Ooxoapbao b2g.pl >>P g2b.pl
       "^aox"a,u{|,i, (C)^I|b,u{|,ioxo""I=Y^IoxU|C1/4gak:

           use Encode::HanConvert;
           $euccn = big5togb($big5); # +-q Big5 ^A`a~o GBK
           $big5 = gbtobig5($euccn); # +-q GBK ^A`a~o Big5

       99||iiooxx@@""BBaaoo,,^^eeooTT
                                                  
       1/2-Do~N|`O Perl oxoapbaooxj9|q>>,i(C)'uoxoa=Y'o (ox-L(C) =Ypb~O=Y^I^oxoa1/4gao),
       "'O3/4,C2BS'o|h~A"o(C)'o Perl aoa3/4~A~N, =YHox^I Unicode ao""I=Y^Iox`e|,i. ox-L1L,
       =Y~3,iao,^e.1/2~^U.'i^Ax'I:

       ''-LL""~~NN PPeerrll ,,^^ee..11//22aaoooo^^ooSS}}


       
           Perl aoo9| (=Y~N1/4'U,u"U^ASox1/2=Yqo^uoA@)

       
           Perl o^i|X"oa^A~Ao^o (Comprehensive Perl Archive Network)

       
           Perl 9|l>>1/41/2x3/4^Aox@"A'y

       33//44,,CC22BB PPeerrll aaoooo^^ooSS}}


       
           =Y'coA'eoxoxoxoaa(C)ao1/4'U,u"U^AS Perl (R)~N^A,C

       
           >>OAEW Perl 3s1/2uoQ1/2xo"I (ox]'N~O|Uoxj BBS ao Perl 3s1/2ua(C))

       PPeerrll """"II==YY^^IIaa``II99||oo..||


       
           >>OAEW Perl +-`A1/4s2~Oox@"A'y

       
           ~A`A=YB"'o1/2uoxW2'aox~N<<,C

       UUnniiccooddee ~~^^UU~~AA""oooo^^ooSS}}


       
           Unicode 3/4,C3N3/4,C.| (Unicode 1/4-D.,Cao"^i(C)wa`I)

       
           Unix/Linux oxWao UTF-8 ox^I Unicode ,ua<<`Eo'Y

       ooxxooxxooxxooaaooxxAAEE,,^^eeooTT


       ~ooxo>>`o=Ys "=Y'coA'eoxoxoxoa" ox-L=Ys "'AcoA'eoxoxoxoa"?
           

       oxoxoxoaoxAE3noA'e'Ap.`u
           

       Linux 3noA'eoxoxoxoaoxAEp1o
           

SEE ALSO
       Encode, Encode::TW, encoding, perluniintro, perlunicode

AUTHORS       Jarkko Hietaniemi 

       Autrijus Tang (`'o(C)vo~) 



perl v5.8.6                       2004-11-05                         PERLTW(1)