#!/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)