Perl 5.8.0 以上で使えるエンコード
# via PerlIO
open my $in, "<:encoding(shiftjis)", $infile or die;
open my $out, ">:encoding(euc-jp)", $outfile or die;
while (<$in>) {
print $out $_;
}
# via from_to
open my $in, "<", $infile or die;
open my $out, ">", $outfile or die;
while(<$in>) {
from_to($_, "shiftjis", "euc-jp", 1);
print $out $_;
}
