If you read this file _as_is_, just ignore the funny characters you see. It is written in the POD format (see perlpod manpage) which is specially designed to be readable as is. The following documentation is written in Big5 encoding. ¦pªG§A¥Î¤(_at_)¯ëªº¤å¦r½s¿è¾¹¾\Äý³o¥÷¤å¥ó, ½Ð©¿²¤¤å¤¤©_¯Sªºµù°O¦r²Å. ³o¥÷¤å¥ó¬O¥H POD (²©ú¤å¥ó®æ¦¡) ¼g¦¨; ³oºØ®æ¦¡¬O¬°¤F¯àÅý¤Hª½±µÅª¨ú, ¦Ó¯S§O³]­pªº. Ãö©ó¦¹®æ¦¡ªº¶i¤(_at_)¨B¸ê°T, ½Ð°Ñ¦Ò perlpod ½u¤W¤å¥ó. =head1 NAME perltw - ¥¿Å餤¤å Perl «ü«n =head1 DESCRIPTION Åwªï¨Ó¨ì Perl ªº¤Ñ¦a! ±q 5.8.0 ª©¶}©l, Perl ¨ã³Æ¤F§¹µ½ªº Unicode (¸U°ê½X) ¤ä´©, ¤]³s±a¤ä´©¤F³\¦h©Ô¤B»y¨t¥H¥~ªº½s½X¤è¦¡; CJK (¤¤¤éÁú) «K¬O¨ä¤¤ªº¤(_at_)³¡¥÷(_dot_) Unicode ¬O°ê»Ú©Êªº¼Ð·Ç, ¸Õ¹Ï²[»\¥(_at_)¬É¤W©Ò¦³ªº¦r²Å: ¦è¤è¥(_at_)¬É, ªF¤è¥(_at_)¬É, ¥H¤Î¨âªÌ¶¡ªº¤(_at_)¤Á (§Æþ¤å, ±Ô§Q¨È¤å, ªü©Ô§B¤å, §Æ§B¨Ó¤å, ¦L«×¤å, ¦L¦a¦w¤å, µ¥µ¥). ¥¦¤]®e¯Ç¤F¦hºØ§(_at_)·~¨t²Î»P¥­»O (¦p PC ¤Î³Áª÷¶ð). Perl ¥»¨­¥H Unicode ¶i¦æ¾Þ§(_at_)(_dot_) ³oªí¥Ü Perl ¤º³¡ªº¦r¦ê¸ê®Æ¥i¥Î Unicode ªí¥Ü; Perl ªº¨ç¦¡»Pºâ²Å (¨Ò¦p¥¿³Wªí¥Ü¦¡¤ñ¹ï) ¤]¯à¹ï Unicode ¶i¦æ¾Þ§(_at_)(_dot_) ¦b¿é¤J¤Î¿é¥X®É, ¬°¤F³B²z¥H Unicode ¤§«eªº½s½X¤è¦¡Àx¦sªº¸ê®Æ, Perl ´£¨Ñ¤F Encode ³o­Ó¼Ò²Õ, ¥i¥HÅý§A»´©ö¦aŪ¨ú¤Î¼g¤J¦³ªº½s½X¸ê®Æ. Encode ©µ¦ù¼Ò²Õ¤ä´©¤U¦C¥¿Å餤¤åªº½s½X¤è¦¡ ('big5' ªí¥Ü 'big5-eten'): big5-eten Big5 ½s½X (§t­Ê¤Ñ©µ¦ù¦r§Î) big5-hkscs Big5 + ­»´ä¥~¦r¶°, 2001 ¦~ª© cp950 ¦r½X­¶ 950 (Big5 + ·L³n²K¥[ªº¦r²Å) Á|¨Ò¨Ó»¡, ±N Big5 ½s½XªºÀÉ®×Âন Unicode, ¯­»ÝÁä¤J¤U¦C«ü¥O: perl -Mencoding=big5,STDOUT,utf8 -pe1 < file.big5 > file.utf8 Perl ¤]¤ºªþ¤F "piconv", ¤(_at_)¤ä§¹¥þ¥H Perl ¼g¦¨ªº¦r²ÅÂà´«¤u¨ãµ{¦¡, ¥Îªk¦p¤U: piconv -f big5 -t utf8 < file.big5 > file.utf8 piconv -f utf8 -t big5 < file.utf8 > file.big5 ¥t¥~, §Q¥Î encoding ¼Ò²Õ, §A¥i¥H»´©ö¼g¥X¥H¦r²Å¬°³æ¦ìªºµ{¦¡½X, ¦p¤U©Ò¥Ü: #!/usr/bin/env perl # ±Ò°Ê big5 ¦r¦ê¸ÑªR; ¼Ð·Ç¿é¥X¤J¤Î¼Ð·Ç¿ù»~³£³]¬° big5 ½s½X use encoding 'big5', STDIN => 'big5', STDOUT => 'big5'; print length("Àd¾m"); # 2 (Âù¤Þ¸¹ªí¥Ü¦r²Å) print length('Àd¾m'); # 4 (³æ¤Þ¸¹ªí¥Ü¦ì¤¸²Õ) print index("½Î½Î±Ð»£", "να"); # -1 (¤£¥]§t¦¹¤l¦r¦ê) print index('½Î½Î±Ð»£', 'να'); # 1 (±q²Ä¤G­Ó¦ì¤¸²Õ¶}©l) ¦b³Ì«á¤(_at_)¦C¨Ò¤l¸Ì, "½Î" ªº²Ä¤G­Ó¦ì¤¸²Õ»P "½Î" ªº²Ä¤(_at_)­Ó¦ì¤¸²Õµ²¦X¦¨ Big5 ½Xªº "ν"; "½Î" ªº²Ä¤G­Ó¦ì¤¸²Õ«h»P "±Ð" ªº²Ä¤(_at_)­Ó¦ì¤¸²Õµ²¦X¦¨ "α". ³o¸Ñ¨M¤F¥H«e Big5 ½X¤ñ¹ï³B²z¤W±`¨£ªº°ÝÃD. =head2 ÃB¥~ªº¤¤¤å½s½X ¦pªG»Ý­n§ó¦hªº¤¤¤å½s½X, ¥i¥H±q CPAN (L) ¤U¸ü Encode::HanExtra ¼Ò²Õ. ¥¦¥Ø«e´£¨Ñ¤U¦C½s½X¤è¦¡: cccii 1980 ¦~¤å«Ø·|ªº¤¤¤å¸ê°T¥æ´«½X euc-tw Unix ©µ¦ù¦r²Å¶°, ¥]§t CNS11643 ¥­­± 1-7 big5plus ¤¤¤å¼Æ¦ì¤Æ§Þ³N±À¼s°òª÷·|ªº Big5+ big5ext ¤¤¤å¼Æ¦ì¤Æ§Þ³N±À¼s°òª÷·|ªº Big5e ¥t¥~, Encode::HanConvert ¼Ò²Õ«h´£¨Ñ¤F²ÁcÂà´«¥Îªº¨âºØ½s½X: big5-simp Big5 ¥¿Å餤¤å»P Unicode ²Å餤¤å¤¬Âà gbk-trad GBK ²Å餤¤å»P Unicode ¥¿Å餤¤å¤¬Âà ­Y·Q¦b GBK »P Big5 ¤§¶¡¤¬Âà, ½Ð°Ñ¦Ò¸Ó¼Ò²Õ¤ºªþªº b2g.pl »P g2b.pl ¨â¤äµ{¦¡, ©Î¦bµ{¦¡¤º¨Ï¥Î¤U¦C¼gªk: use Encode::HanConvert; $euc_cn = big5_to_gb($big5); # ±q Big5 Âର GBK $big5 = gb_to_big5($euc_cn); # ±q GBK Âର Big5 =head2 ¶i¤(_at_)¨Bªº¸ê°T ½Ð°Ñ¦Ò Perl ¤ºªþªº¤j¶q»¡©ú¤å¥ó (¤£©¯¥þ¬O¥Î­^¤å¼gªº), ¨Ó¾Ç²ß§ó¦hÃö©ó Perl ªºª¾ÃÑ, ¥H¤Î Unicode ªº¨Ï¥Î¤è¦¡. ¤£¹L, ¥~³¡ªº¸ê·½¬Û·íÂ×´I: =head2 ´£¨Ñ Perl ¸ê·½ªººô§} =over 4 =item L Perl ªº­º­¶ (¥Ñ¼ÚµÜ§¤½¥qºûÅ@) =item L Perl ºî¦X¨åÂúô (Comprehensive Perl Archive Network) =item L Perl ¶l»¼½×¾Â¤(_at_)Äý =back =head2 ¾Ç²ß Perl ªººô§} =over 4 =item L ¥¿Å餤¤åª©ªº¼ÚµÜ§ Perl ®ÑÂÇ =item L »OÆW Perl ³s½u°Q½×°Ï (¤]´N¬O¦U¤j BBS ªº Perl ³s½uª©) =back =head2 Perl ¨Ï¥ÎªÌ¶°·| =over 4 =item L »OÆW Perl ±À¼s²Õ¤(_at_)Äý =item L ÃÀ¥ß¨ó½u¤W²á¤Ñ«Ç =back =head2 Unicode ¬ÛÃöºô§} =over 4 =item L Unicode ¾Ç³N¾Ç·| (Unicode ¼Ð·Çªº¨î©wªÌ) =item L Unix/Linux ¤Wªº UTF-8 ¤Î Unicode µª«È°Ý =head2 ¤¤¤å¤Æ¸ê°T =item ¬°¤°»ò¥s "¥¿Å餤¤å" ¤£¥s "ÁcÅ餤¤å"? L =item ¤¤¤å¤Æ³nÅéÁp·ù L =item Linux ³nÅ餤¤å¤Æ­p¹º L =back =head1 SEE ALSO L, L, L, L, L =head1 AUTHORS Jarkko Hietaniemi Ejhi(_at_)iki(_dot_)fiE Autrijus Tang (­ð©vº~) Eautrijus(_at_)autrijus(_dot_)orgE =cut