Simple Sand Samples |
Perl > バイナリファイルを読み込む
read-bin.pl
binmode FH; open FH,'<',$ARGV[0]; while(read(FH, $val, 1)){ printf("%02x ",unpack("C",$val)); } print"\n";
$ echo -ne "\x1\x2\x3" > hoge.bin
$ od -tx1 hoge.bin
0000000 01 02 03
0000003
$ perl read-bin.pl hoge.bin
01 02 03
$
$ od -tx1 hoge.bin
0000000 01 02 03
0000003
$ perl read-bin.pl hoge.bin
01 02 03
$
* 確認環境 Debian Linux(Wheezy)