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



NAME
       perltw - =Y'cA'exxxa Perl <<"u<>y"t=YH=Y~ao1/2s1/2Xx`e,i; CJK (xxx'e'A'u)
       <>'U(C)^Eao1/4D.,C,
       ,~O1"I2[>>\=Y@~'ExW(C)`O3aor2A: `ex`e=Y@~'E, aFx`e=Y@~'E, =YHx^I"^aa`I9,iaox@x'A
       (SAE~A3/4a, ]-^OSQ"`Exa, a"u(C)^OSBxa, SAESB"'Oxa, L<>P=Y>>O (p PC x^I3'Aa-:-9`'o).

       Perl =Y>>"=YH Unicode 9iae3/4IbS@. 3oa'i=Y"U Perl xo3,iaor^e,^e(R)AE=Yi=Y^I
       Unicode a'i=Y"U; Perl ao",c,i>>Po^a2A ("`Op=Y'c3Wa'i=Y"U,ix~n1"i) x] `a1"i Unicode
       9iae3/4IbS@.  b'c'exJx^I'c'e=YX(R)'E, ~oxF3B2z=YH Unicode
       xS<>'(C)"oaAa"'ux^I1/4gxJ^A^A3ao1/2s1/2X,^e(R)AE.

       Encode (C),u`u1/4`O2~Ox"a'(C)xUC=Y'cA'exxxaao1/2s1/2Xx`e,i ('big5' a'i=Y"U
       'big5-eten'):

           big5-eten   Big5 1/2s1/2X (St^Ex~N(C),u`urS^I)
           big5-hkscs  Big5 ] >>'"a=Y~r9o, 2001 ~a(C)
           cp950       r1/2X9 950 (Big5 ] .L3n2K=Y[aor2A)
                                                         
       'A"`O"'O>>,i, ]-N Big5 1/2s1/2Xao`A'E(R)x^A`a" Unicode,  >>'Y'A"axJxUC<<"u=YO:

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

       Perl x]xoabxF "piconv", x@x"aS1=Yb=YH Perl 1/4g"aor2A^A`a'< 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=YHr2A~o3ae`iao,u{,i1/2X,
       pxU(C)`O=Y"U:

           #!/usr/bin/env perl
           # ]-`Oo^E big5 r^e,~NaR; 1/4D.,C'c'e=YXxJx^I1/4D.,C'c`u>>~3L3]~o big5 1/2s1/2X
           use encoding 'big5', STDIN => 'big5', STDOUT => 'big5';
           print length("`Ad3/4m");            #  2 (^A`uxIb,1a'i=Y"Ur2A)
           print length('`Ad3/4m');            #  4 (3aexIb,1a'i=Y"U`ix,2~O)
           print index("1/2^I1/2^I]-D>>L", "^I1/2^I]-"); # -1 (xL=Y]St1xlr^e)
           print index('1/2^I1/2^I]-D>>L', '^I1/2^I]-'); #  1 (]-q2"AxG'O`ix,2~O9}(C)l)

       b3`I<<'ax@C"`Oxl,`I, "1/2^I" ao2"AxG'O`ix,2~O>>P "1/2^I" ao2"Ax@'O`ix,2~O,u2X"
       Big5 1/2Xao "^I1/2"; "1/2^I" ao2"AxG'O`ix,2~O<>P "]-D" ao2"Ax@-
       'O`ix,2~O,u2X" "^I]-".  3o,~N"xF=YH<>'YnS'ohaoxxxa1/2s1/2X, =Yi=YH]-q CPAN () xU,"u
       Encode::HanExtra 1/4`O2~O. =Y=YO<>P Unicode ^A2A'exxxax~^A`a
           gbk-trad    GBK ^A2A'exxxa>>P Unicode =Y'cA'exxxax~^A`a

       Y.Qb GBK >>P Big5 xS9,ix~^A`a, 1/2Do~N`O,'O1/4`O2~Oxoabao b2g.pl >>P g2b.pl
       "^ax"a,u{,i, (C)^Ib,u{,ixo""I=Y^IxUC1/4gak:

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

       9ix@@""Bao,,^^eoT
                                                  
       1/2Do~N`O Perl xoabaoxj9q>>,i(C)'uxa=Y'o (xL(C) =Yb~O=Y^I^xa1/4gao),
       "'O3/4,C2BS'oh~A"o(C)'o Perl aoa3/4~A~N, =YHx^I Unicode ao""I=Y^Ix`e,i. xL1L,
       =Y~3,iao,^e.1/2~^U.'i^Ax'I:

       ''L""~~N Perl ,,^^e.1/2aoo^^oS}}


       
           Perl aoo9 (=Y~N1/4'U,u"U^ASx1/2=Yqo^uA@)

       
           Perl o^iX"a^A~Ao^o (Comprehensive Perl Archive Network)

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

       3/4,,C2B Perl aoo^^oS}}


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

       
           >>OAEW Perl 3s1/2uoQ1/2xo"I (x]'N~OUxj BS ao Perl 3s1/2ua(C))

       Perl """"I==Y^^Ia``I9o.


       
           >>OAEW Perl ]-`A1/4s2~Ox@"A'y

       
           ~A`A=YB"'o1/2uxW2'ax~N<<,C

       Unicode ~~^^U~~A""oo^^oS}}


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

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

       xxxaxAE,,^^eoT


       ~oxo>>`o=Ys "=Y'cA'exxxa" xL=Ys "'AcA'exxxa"?
           

       xxxaxAE3nA'e'Ap.`u
           

       Linux 3nA'exxxaxAEp1o
           

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)