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