X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/d8416318460c9d88f9f5c6724f0703dd06d3d6a9..aec0ef10cc8948651a7dfb420d01818fafa2042c:/README.cn

diff --git a/README.cn b/README.cn
index eb7f7a9..e45ebff 100644
--- a/README.cn
+++ b/README.cn
@@ -4,9 +4,11 @@ specially designed to be readable as is.
 
 The following documentation is written in EUC-CN encoding.
 
-?ç¹?ÄãÓÃÒ»°ãµÄÎÄ×ֱ༭Æ÷ÔÄÀÀÕâ·ÝÎĵµ, ÇëºöÂÔÎÄÖÐÆæÌصÄ×¢¼Ç×Ö·û. Õâ·ÝÎÄ
-¼þÊÇÒÔ POD (¼òÃ÷Îĵµ¸ñʽ) д³É; ÕâÖÖ¸ñʽÊÇΪÁËÄÜ?ÃÈËÖ±½Ó¶ÁÈ¡¶øÌرðÉè¼?
-µÄ. ¹ØÓڴ˸ñʽµÄ½øÒ»²½×ÊѶ, Çë²Î¿¼ perlpod ÏßÉÏÎĵµ.
+Èç¹ûÄãÓÃÒ»°ãµÄÎÄ×ֱ༭Æ÷ÔÄÀÀÕâ·ÝÎļþ, ÇëºöÂÔÎÄÖÐÆæÌصÄ×¢¼Ç×Ö·û.
+Õâ·ÝÎļþÊÇÒÔ POD (¼òÃ÷Îļþ¸ñʽ) д³É; ÕâÖÖ¸ñʽÊÇΪÁËÄÜÈÃÈËÖ±½ÓÔĶÁ,
+¶øÌرðÉè¼ÆµÄ. ¹ØÓڴ˸ñʽµÄ½øÒ»²½ÐÅÏ¢, Çë²Î¿¼ perlpod ÏßÉÏÎļþ.
+
+=encoding euc-cn
 
 =head1 NAME
 
@@ -16,66 +18,71 @@ perlcn - 
 
 »¶Ó­À´µ½ Perl µÄÌìµØ!
 
-´Ó 5.8.0 °æ¿ªÊ¼, Perl ¾ß±¸ÁËÏ꾡µÄ Unicode (ͳһÂë) Ö§Ô®, Ò²Á¬´øÖ§Ô®ÁË
-Ðí¶àÀ­¶¡ÓïϵÒÔÍâµÄ±àÂ뷽ʽ; CJK (ÖÐ?Õº?) ±ãÊÇÆäÖеÄÒ»²¿·Ý. Unicode ÊÇ
-¹ú¼ÊÐԵıê×¼, ÊÔͼº­¸ÇÊÀ½çÉÏËùÓеÄ×Ö·û: Î÷·½ÊÀ½ç, ¶«·½ÊÀ½ç, ÒÔ¼°Á½Õß¼ä
-µÄÒ»ÇÐ (Ï£À°ÎÄ, ÐðÀûÑÇÎÄ, °¢À­²®ÎÄ, Ï£²®À´ÎÄ, Ó¡¶ÈÎÄ, Ó¡µØ°²ÎÄ, µÈµÈ).
-ËüÒ²?ÝÄÉÁ˶àÖÖ×÷ҵϵͳÓëƽÌ? (?? PC ¼°Âó½ðËþ).
+´Ó 5.8.0 °æ¿ªÊ¼, Perl ¾ß±¸ÁËÍêÉÆµÄ Unicode (ͳһÂë) Ö§Ô®,
+Ò²Á¬´øÖ§Ô®ÁËÐí¶àÀ­¶¡ÓïϵÒÔÍâµÄ±àÂ뷽ʽ; CJK (ÖÐÈÕº«) ±ãÊÇÆäÖеÄÒ»²¿·Ý.
+Unicode Êǹú¼ÊÐԵıê×¼, ÊÔͼº­¸ÇÊÀ½çÉÏËùÓеÄ×Ö·û: Î÷·½ÊÀ½ç, ¶«·½ÊÀ½ç,
+ÒÔ¼°Á½Õß¼äµÄÒ»ÇÐ (Ï£À°ÎÄ, ÐðÀûÑÇÎÄ, ÑÇÀ­²®ÎÄ, Ï£²®À´ÎÄ, Ó¡¶ÈÎÄ,
+Ó¡µØ°²ÎÄ, µÈµÈ). ËüÒ²ÈÝÄÉÁ˶àÖÖ×÷ҵϵͳÓëƽ̨ (Èç PC ¼°Âó½ðËþ).
 
-Perl ±¾ÉíÒÔ Unicode ½øÐвÙ×÷. Õâ±íʾ Perl ÄÚ²¿µÄ×Ö´®×ÊÁÏ¿ÉÓà Unicode
-±íʾ, Perl µÄº¯Ê½ÓëËã·û (Àý?çÕ?¹æ±íʾʽ±È¶Ô) Ò²ÄÜ¶Ô Unicode ½øÐвÙ×÷.
-ÔÚÊä?ë¼°Êä³öÊ?, ΪÁË´¦ÀíÒÔ Unicode ֮ǰµÄ±àÂ뷽ʽ´¢´æµÄ×ÊÁÏ, Perl Ìṩ
-ÁË¡¸Encode¡¹Õâ¸öÄ£¿é, ¿ÉÒÔ?ÃÄãÇáÒ׵ضÁÈ¡¼°Ð´Èë¾ÉÓеıàÂë×ÊÁ?.
+Perl ±¾ÉíÒÔ Unicode ½øÐвÙ×÷. Õâ±íʾ Perl ÄÚ²¿µÄ×Ö·û´®Êý¾Ý¿ÉÓà Unicode
+±íʾ; Perl µÄº¯Ê½ÓëËã·û (ÀýÈçÕý¹æ±íʾʽ±È¶Ô) Ò²ÄÜ¶Ô Unicode ½øÐвÙ×÷.
+ÔÚÊäÈë¼°Êä³öʱ, ΪÁË´¦ÀíÒÔ Unicode ֮ǰµÄ±àÂ뷽ʽ´æ·ÅµÄÊý¾Ý, Perl
+ÌṩÁË Encode Õâ¸öÄ£¿é, ¿ÉÒÔÈÃÄãÇáÒ׵ضÁÈ¡¼°Ð´Èë¾ÉÓеıàÂëÊý¾Ý.
 
-Encode ÑÓÉìÄ£¿éÖ§Ô®ÏÂÁмòÌåÖÐÎĵıàÂ뷽ʽ:
+Encode ÑÓÉìÄ£¿éÖ§Ô®ÏÂÁмòÌåÖÐÎĵıàÂ뷽ʽ ('gb2312' ±íʾ 'euc-cn'):
 
     euc-cn	Unix ÑÓÉì×Ö·û¼¯, Ò²¾ÍÊÇË׳ƵĹú±êÂë
-    gb2312	δ¾­´¦ÀíµÄ (µÍ±ÈÌØ) GB2312 ×Ö·û±í
+    gb2312-raw	δ¾­´¦ÀíµÄ (µÍ±ÈÌØ) GB2312 ×Ö·û±í
     gb12345	δ¾­´¦ÀíµÄÖйúÓ÷±ÌåÖÐÎıàÂë
     iso-ir-165	GB2312 + GB6345 + GB8565 + ÐÂÔö×Ö·û
-    cp936	×ÖÂëÒ³ 936, Ò²³ÆΪ GBK (À©³ä¹ú±êÂë)
+    cp936	×ÖÂëÒ³ 936, Ò²¿ÉÒÔÓà 'GBK' (À©³ä¹ú±êÂë) Ö¸Ã÷
     hz		7 ±ÈÌØÒݳöʽ GB2312 ±àÂë
 
-¾ÙÀýÀ´Ëµ, ½« euc-cn ±àÂëµÄµµ°¸×ª³É Unicode, ìóÐè¼ü?ëÏÂÁÐÖ¸Á?:
+¾ÙÀýÀ´Ëµ, ½« EUC-CN ±àÂëµÄµµ°¸×ª³É Unicode, ìóÐè¼üÈëÏÂÁÐÖ¸Áî:
 
     perl -Mencoding=euc-cn,STDOUT,utf8 -pe1 < file.euc-cn > file.utf8
 
-Perl Ò²ÄÚ¸½ÁË¡¸piconv¡¹, Ò»Ö§Íê?«Ò? Perl д³ÉµÄ×Ö·ûת»»¹¤¾ß³ÌÐò, Ó÷¨
-?çÏ?:
+Perl Ò²ÄÚ¸½ÁË "piconv", Ò»Ö§ÍêÈ«ÒÔ Perl д³ÉµÄ×Ö·ûת»»¹¤¾ß³ÌÐò, Ó÷¨ÈçÏÂ:
 
     piconv -f euc-cn -t utf8 < file.euc-cn > file.utf8
     piconv -f utf8 -t euc-cn < file.utf8 > file.euc-cn
 
-ÁíÍâ, ÀûÓà encoding Ä£¿é, Äã¿ÉÒÔÇáÒ×д³öÒÔ×Ö·ûΪµ¥Î»µÄ³ÌÐòÂë, ?çÏÂËùÊ?:
+ÁíÍâ, ÀûÓà encoding Ä£¿é, Äã¿ÉÒÔÇáÒ×д³öÒÔ×Ö·ûΪµ¥Î»µÄ³ÌÐòÂë, ÈçÏÂËùʾ:
 
     #!/usr/bin/env perl
-    # Æô¶¯ euc-cn ×Ö´®½âÎö; ±ê×¼Êä³ö?ë¼°±ê×¼´íÎó¶¼ÉèÎ? euc-cn ±àÂë
-    use encoding 'euc-cn', STDIN => 'euc-cn',
-			   STDOUT => 'euc-cn', STDERR => 'euc-cn';
-
+    # Æô¶¯ euc-cn ×Ö´®½âÎö; ±ê×¼Êä³öÈë¼°±ê×¼´íÎó¶¼ÉèΪ euc-cn ±àÂë
+    use encoding 'euc-cn', STDIN => 'euc-cn', STDOUT => 'euc-cn';
     print length("ÂæÍÕ");	     #  2 (Ë«ÒýºÅ±íʾ×Ö·û)
     print length('ÂæÍÕ');	     #  4 (µ¥ÒýºÅ±íʾ×Ö½Ú)
-    print index("×»×»½Ì»å", "»×»½"); # -1 (²»°üº¬´Ë×Ó×Ö´®)
+    print index("×»×»½Ì»å", "»×»½"); # -1 (²»°üº¬´Ë×Ó×Ö·û´®)
     print index('×»×»½Ì»å', '»×»½'); #  1 (´ÓµÚ¶þ¸ö×Ö½Ú¿ªÊ¼)
 
+ÔÚ×îºóÒ»ÁÐÀý×ÓÀï, "×»" µÄµÚ¶þ¸ö×Ö½ÚÓë "×»" µÄµÚÒ»¸ö×Ö½Ú½áºÏ³É EUC-CN
+ÂëµÄ "»×"; "×»" µÄµÚ¶þ¸ö×Ö½ÚÔòÓë "½Ì" µÄµÚÒ»¸ö×Ö½Ú½áºÏ³É "»½".
+Õâ½â¾öÁËÒÔÇ° EUC-CN Âë±È¶Ô´¦ÀíÉϳ£¼ûµÄÎÊÌâ.
+
 =head2 ¶îÍâµÄÖÐÎıàÂë
 
-?ç¹?ÐèÒª¸ü¶àµÄÖÐÎıàÂë, ¿ÉÒÔ´Ó CPAN (L<http://www.cpan.org/>) ÏÂÔØ
+Èç¹ûÐèÒª¸ü¶àµÄÖÐÎıàÂë, ¿ÉÒÔ´Ó CPAN (L<http://www.cpan.org/>) ÏÂÔØ
 Encode::HanExtra Ä£¿é. ËüÄ¿Ç°ÌṩÏÂÁбàÂ뷽ʽ:
 
     gb18030	À©³ä¹ýµÄ¹ú±êÂë, °üº¬·±ÌåÖÐÎÄ
 
 ÁíÍâ, Encode::HanConvert Ä£¿éÔòÌṩÁ˼ò·±×ª»»ÓõÄÁ½ÖÖ±àÂë:
 
-    gbk-trad	GBK ¼òÌåÖÐÎÄÓë Unicode ·±ÌåÖÐÎÄ»¥×ª
     big5-simp	Big5 ·±ÌåÖÐÎÄÓë Unicode ¼òÌåÖÐÎÄ»¥×ª
+    gbk-trad	GBK ¼òÌåÖÐÎÄÓë Unicode ·±ÌåÖÐÎÄ»¥×ª
+
+ÈôÏëÔÚ GBK Óë Big5 Ö®¼ä»¥×ª, Çë²Î¿¼¸ÃÄ£¿éÄÚ¸½µÄ b2g.pl Óë g2b.pl Á½Ö§³ÌÐò,
+»òÔÚ³ÌÐòÄÚʹÓÃÏÂÁÐд·¨:
 
-?ôÏëÔ? GBK Óë Big5 Ö®¼ä»¥×ª, Çë²Î¿¼¸ÃÄ£¿éÄÚ¸½µÄ b2g.pl Óë g2b.pl Á½
-Ö§³ÌÐò.
+    use Encode::HanConvert;
+    $euc_cn = big5_to_gb($big5); # ´Ó Big5 תΪ GBK
+    $big5 = gb_to_big5($euc_cn); # ´Ó GBK תΪ Big5
 
-=head2 ½øÒ»²½µÄ×ÊѶ
+=head2 ½øÒ»²½µÄÐÅÏ¢
 
-Çë²Î¿¼ Perl ÄÚ¸½µÄ´óÁ¿ËµÃ÷Îĵµ (²»ÐÒ?«ÊÇÓÃÓ?ÎÄдµÄ) , À´Ñ§Ï°¸ü¶à¹ØÓÚ
+Çë²Î¿¼ Perl ÄÚ¸½µÄ´óÁ¿ËµÃ÷Îļþ (²»ÐÒÈ«ÊÇÓÃÓ¢ÎÄдµÄ), À´Ñ§Ï°¸ü¶à¹ØÓÚ
 Perl µÄ֪ʶ, ÒÔ¼° Unicode µÄʹÓ÷½Ê½. ²»¹ý, ÍⲿµÄ×ÊÔ´Ï൱·á¸»:
 
 =head2 Ìṩ Perl ×ÊÔ´µÄÍøÖ·
@@ -100,7 +107,7 @@ Perl 
 
 =over 4
 
-=item L<http://www.oreilly.com.cn/html/perl.html>
+=item L<http://www.oreilly.com.cn/index.php?func=booklist&cat=68>
 
 ¼òÌåÖÐÎÄ°æµÄÅ·À³Àñ Perl Êé½å
 
@@ -110,7 +117,7 @@ Perl 
 
 =over 4
 
-=item L<http://www.pm.org/groups/asia.shtml#China>
+=item L<http://www.pm.org/groups/asia.html>
 
 Öйú Perl Íƹã×éÒ»ÀÀ
 
@@ -130,10 +137,14 @@ Unix/Linux 
 
 =back
 
+=head1 SEE ALSO
+
+L<Encode>, L<Encode::CN>, L<encoding>, L<perluniintro>, L<perlunicode>
+
 =head1 AUTHORS
 
 Jarkko Hietaniemi E<lt>jhi@iki.fiE<gt>
 
-ÌÆ×Úºº E<lt>autrijus@autrijus.orgE<gt>
+Audrey Tang (ÌÆ·ï) E<lt>audreyt@audreyt.orgE<gt>
 
 =cut