Convert from a Japanese encoding file to UTF-8.

conv-ja2utf8.pl

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use Encode;
use Encode::Guess qw/shift-jis euc-jp 7bit-jis/;
use Perl6::Slurp;
use Path::Class;

my $input = $ARGV[0];
my $output = $ARGV[1] || $input;

my $body = slurp $input;
my $decoder = Encode::Guess->guess($body);
$body = $decoder->decode($body);

$body =~s/\r\n/\n/g;

my $file = file $output;
my $fh = $file->open('w') or die $!;
print $fh encode( 'utf-8', $body );
$fh->close;

exit;