作者roy8130 (reputation)
看板perl
标题[问题] binary file 处理问题
时间Tue Sep 4 23:49:36 2007
我的binary file为4 bytes, binary.dat格式如下
00000000h: 18 00 00 00 01 00 00 00 02 00 00 00 03 00 00 00 ; ................
code如下
use strict;
my $buffer = "";
open(FILE, "<Data.dat");
binmode(FILE);
read(FILE, $buffer, 10000000, 0);
close(FILE);
foreach (split(//, $buffer)){
my $data = sprintf("%02x\b", ord($_));
print $data;}
输出结果如下
18 00 00 00 01 00 00 00 02 00 00 00 03 00 00 00
请问各位高手, 如果要每四个为一组, 要如何写呢?
如下的输出结果!! 谢谢!!
18 00 00 00
01 00 00 00
02 00 00 00
03 00 00 00
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.115.237.210