|
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)