→ LiloHuang:真的搞不懂你的問題在哪 上篇作法已經描述很清楚了 09/05 15:15
※ 引述《LiloHuang (相見不如懷念)》之銘言：
: #!/usr/bin/perl
: open(FILE, "user.dat");
: binmode(FILE);
: while(read(FILE, $buffer, 4)) {
: print sprintf("%2s "x4, unpack("H2"x4, $buffer)),$/;
: }
: close(FILE);
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
如果只是單純地把$data處理, 像是每六個堆疊ㄧ次的方式, 要如何做呢?
像是 $line.="$data\n" if(...........) 利用if來判斷是否計數了六個.
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.115.237.210