The following documentation is written in euc-jp encoding.
+=encoding euc-jp
+
=head1 NAME
perljp - ÆüËܸì Perl ¥¬¥¤¥É
# jcode.pl
require "jcode.pl";
while(<>){
- jcode::convert(*_, 'euc', 'sjis);
+ jcode::convert(*_, 'euc', 'sjis');
print;
}
# Jcode.pm
print;
}
# Perl 5.8 - encoding ¤òÍøÍѤ·¤Æ
- use encoding 'euc-jp', STDIN=>'shiftjis'
+ use encoding 'euc-jp', STDIN => 'shiftjis';
while(<>){
print;
}
=over 4
-=item L<http://www.pm.org/groups/asia.shtml#China>
+=item L<http://www.pm.org/groups/asia.html>
Ãæ¹ñ¡ÊÃæ²Ú¿Í̱¶¦Ï¹ñ¡Ë