[問題] 讀BINARY檔的問題
以下是一個求檔案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
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
