Virtual Solutions : Resources : Documentation : Perl POD : perlko - Perl°ú ÇÑ±¹¾î ÀÎÄÚµù �leX�F��e�)��e="author" content="Virtual Solutions"> <meta name="copyright" content="Virtual Solutions"> <meta name="description" content="Virtual Solutions webmaster tools."> <meta name="keywords" content="webmaster tools, webmaster resources, search engine placement, search engine traffic, site submissions, cgi perl scripts, cgi perl, web applications, web programs, password sentry, perl scripts, perl, cgi, programming, webmaster resources, perl programming, cgi programming, script installations, web promotions, web submissions, search engine submissions"> <meta name="revisit-after" content="14 days"> <meta name="Robots" content="index"> <meta name="Robots" content="follow"> <link rel="stylesheet" href="/includes/styles.css" type="text/css"> <script language="JavaScript" src="/includes/routines.js"></script> </head> <script language="JavaScript">  </script> <noscript> <center> <table align="center" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="16"><img src="/images/top_lef.gif" height="16" width="16"></td> <td height="16" background="/images/top_mid.gif"><img src="/images/top_mid.gif" height="16" width="16"></td> <td width="24"><img src="/images/top_rig.gif" height="16" width="24"></td> </tr> <tr> <td background="/images/cen_lef.gif" width="16"><img src="/images/cen_lef.gif" width="16" height="11"></td> <td align="center" bgcolor="yellow" valign="middle"> If you do not see this page framed, then <a href="/fmain.shtml" target="_top"><b>CLICK HERE</b></a> </td> <td background="/images/cen_rig.gif" width="24"><img src="/images/cen_rig.gif" height="11" width="24"></td> </tr> <tr> <td height="16" width="16"><img src="/images/bot_lef.gif" height="16" width="16"></td> <td background="/images/bot_mid.gif" height="16"><img src="/images/bot_mid.gif" height="16" width="16"></td> <td height="16" width="24"><img src="/images/bot_rig.gif" height="16" width="24"></td> </tr> </table> </center><br><br> </noscript> <table class="body" width="100%" cellpadding="0" cellspacing="0" border="0"> <tr> <th class="mbox"> <h3 class="ptitle">Virtual Solutions : Resources : Documentation : Perl POD : perljp - ÆüËÜ¸ì Perl ¥¬¥¤¥É </h3> <table class="mbox" width="100%" cellpadding="4" cellspacing="1" border="0"> <tr> <td class="mbox" valign="top"><p><br> <p><hr> <H1> <A class="aname" NAME="perljp_name_0"> NAME</A> </H1> perljp - F|K\8l Perl %,%$%I <p> <UL> <LI>F~=PNO <p>0J2<$NNc$O$$$E$l$bShift_JIS$NF~NO$rEUC-JP$KJQ49$7$F=PNO$7$^$9!# <p> <XMP> # jcode.pl require "jcode.pl"; while(<>){ jcode::convert(*_, 'euc', 'sjis'); print; } # Jcode.pm use Jcode; while(<>){ print Jcode->new($_, 'sjis')->euc; } # Perl 5.8 use Encode; while(<>){ from_to($_, 'shiftjis', 'euc-jp'); print; } # Perl 5.8 - encoding ¤òÍøÍÑ¤·¤Æ use encoding 'euc-jp', STDIN => 'shiftjis'; while(<>){ print; } </XMP> <p> <LI>Jperl 8_49%9%/%j%W%H <p> <XMP> ¤¤¤ï¤æ¤ë"shebang"¤òÊÑ¹¹¤¹¤ë¤À¤±¤Ç¡¢JperlÍÑ¤Îscript¤Î¤Û¤È¤ó¤É¤ÏÊÑ¹¹¤Ê¤·¤ËÍøÍÑ²ÄÇ½¤À¤È»×¤ï¤ì¤Þ¤¹¡£ #!/path/to/jperl ¢ #!/path/to/perl -Mencoding=euc-jp ¾Ü¤·¤¯¤Ï perldoc encoding ¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ </XMP> <p> </UL> . <p> <H2> <A class="aname" NAME="perljp__0"> $5$i$K>\$7$/</A> </H2> Perl$K$OKDBg$J;qNA$,IUB0$7$F$*$j!"Perl$N?75!G=$dUnicode%5%]!<%H!"$=$7$FEncode%b%8%e!<%k$N;HMQK!$J$I$,:Y$+$/LVMe$5$l$F$$$^$9!J;DG0$J$,$i!"$[$H$s$I1Q8l$G$O$"$j$^$9$,!K!#0J2<$N%3%^%s%I$G$=$l$i$N0lIt$r1\Mw$9$k$3$H$,2DG=$G$9!# <p> <XMP> perldoc perlunicode # Perl¤ÎUnicode¥µ¥Ý¡¼¥ÈÁ´ÈÌ perldoc Encode # Encode¥â¥¸¥å¡¼¥ë¤Ë´Ø¤·¤Æ perldoc Encode::JP # ¤¦¤ÁÆüËÜ¸ìÊ¸»ú¥³¡¼¥É¤Ë´Ø¤·¤Æ </XMP> <p> <H2> <A class="aname" NAME="perljp_perl_0"> PerlA4HL$K4X$9$k URL</A> </H2> <p> <DL COMPACT> <DT> <STRONG> <a class="special" href="L<http://www.perl.com/>">L<http://www.perl.com/></A> </DT></STRONG> <DD> Perl %[!<%`%Z!<%8 (O'Reilly and Associates) <p> <DT> <STRONG> <a class="special" href="L<http://www.cpan.org/>">L<http://www.cpan.org/></A> </DT></STRONG> <DD> CPAN (Comprehensive Perl Archive Network) <p> <DT> <STRONG> <a class="special" href="L<http://lists.perl.org/>">L<http://lists.perl.org/></A> </DT></STRONG> <DD> Perl %a!<%j%s%0%j%9%H=8 <p> </DL> . <p> <H2> <A class="aname" NAME="perljp_perl_1"> Perl$N=$F@$KLrN)$D URL</A> </H2> <p> <DL COMPACT> <DT> <STRONG> <a class="special" href="L<http://www.oreilly.com.tw/chinese/>">L<http://www.oreilly.com.tw/chinese/></A> </DT></STRONG> <DD> O'Reilly <R$NPerl4XO"=q@R(HKBN;zCf9q8l) <p> <DT> <STRONG> <a class="special" href="L<http://www.oreilly.com.cn/chinese/>">L<http://www.oreilly.com.cn/chinese/></A> </DT></STRONG> <DD> O'Reilly <R$NPerl4XO"=q@R(4JBN;zCf9q8l) <p> <DT> <STRONG> <a class="special" href="L<http://www.oreilly.co.jp/catalog.htm>">L<http://www.oreilly.co.jp/catalog.htm></A> </DT></STRONG> <DD> %*%i%$%j!<<R$NPerl4XO"=q@R(F|K\8l) <p> </DL> . <p> <H2> <EM>Perl %f!<%6!<%0%k!<%W </EM></H2> <DL COMPACT> <DT> <STRONG> <a class="special" href="L<http://www.pm.org/groups/asia.shtml#Japan>">L<http://www.pm.org/groups/asia.shtml#Japan></A> </DT></STRONG> <DD> F|K\ <p> <DT> <STRONG> <a class="special" href="L<http://www.pm.org/groups/asia.shtml#Korea%2