packする練習 #!/usr/bin/perl while(<>){ $s = $_; s/(.*)\.txt/$1/; $d = pack("H*",$_); print "$s -> $d\n"; } $ ls *.txt | hoge.pl 53616E64426F78.txt -> SandBox C7E3A4A4CAAAA5EAA5B9A5C8.txt -> 買い物リスト参考ページ Perl の数値変換 pack| 5部…

SJIS(CP932)からEUCJPに変換できない文字とか 変換して戻してみる UTF-8だとできる $ iconv -c -f CP932 -t UTF-8 < d.txt | nkf -W ㌔㌘ アルファー波EUCJPだとできない $ iconv -c -f CP932 -t EUCJP < d.txt | nkf -E アルファー波