Re: [問題] binary file 處理問題
※ 引述《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
→
09/05 15:15, , 1F
09/05 15:15, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 3 之 3 篇)：
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
