作者LiloHuang (相见不如怀念)
看板perl
标题Re: [问题] binary file 处理问题
时间Wed Sep 5 00:29:06 2007
#!/usr/bin/perl
open(FILE, "user.dat");
binmode(FILE);
while(read(FILE, $buffer, 4)) {
print sprintf("%2s "x4, unpack("H2"x4, $buffer)),$/;
}
close(FILE);
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.111.66.27
※ 编辑: LiloHuang 来自: 140.111.66.27 (09/05 00:33)