出力ファイル

#
# 経
# 路
# 従
#
open(FIN,$ARGV[0]) || die "001 can't open $ARGV[0]¥n";
open(FOUT,">$ARGV[1]") || die "002 can't open $ARGV[1]¥n";

while(&ltFIN>)
{
chomp;
$sjis = pack( "H*", $_ );

print FOUT "$sjis¥n";
}

close(FOUT);
close(FIN);