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;
}