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