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