[問題] binary file 處理問題

[roy8130 (reputation)]

我的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