作者bobhsiao (㊣小臃肿㊣)
看板perl
标题[问题] 读BINARY档的问题
时间Thu Feb 16 19:17:09 2006
以下是一个求档案CHKSUM的程式，我是一次读一个BYTE进来做运算，
，速度较慢。尝试过一次读整个档案进来: read(FH, $buf, $filesize);
但是不知道要怎麽去$buf里面抓每个byte出来做运算....
--------------------------------------------------
use strict;
use warnings;
printf("0x%08X\n", &GetChksum("TEST.BIN"));
sub GetChksum {
my $fn = $_[0];
my $ch;
my $ret = 0;
open FH, "<$fn" or die "$!";
binmode FH, ":raw :bytes";
while(read(FH, $ch, 1)) { # 这里慢
$ret += ord($ch);
}
close(FH);
return $ret;
}
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.130.192.229