sub BEGIN {
eval q<
use FindBin;
use lib "$FindBin::Bin/..";
>;
}
require 'lib/jacode.pl';
while (<>) {
chop;
&jacode'convert(*_, 'euc', 'utf8');
print $_, "\n";
}
1;
__END__
sub BEGIN {
eval q<
use FindBin;
use lib "$FindBin::Bin/..";
>;
}
require 'lib/jacode.pl';
while (<>) {
chop;
&jacode'convert(*_, 'euc', 'utf8');
print $_, "\n";
}
1;
__END__