Perl 怎么将txt文件赋值给哈希

发布网友发布时间：2024-10-24 08:16

共2个回答

热心网友时间：2024-11-14 03:53

可以用文件的md5用作区分文件，文件内容的md5值作为key
use Digest::MD5 qw(md5_hex);
@files = <*.log>;
my %file_hash;
for $f(@files) {
$md5 = md5_hex(content($f));
$file_hash{$md5} = 1;
}

sub content {
my $f = shift;
my $H;
open ($H, $f);
my $str;
do {local $/=undef; $str = <$H>;};
close $H;
$str;
}

追问md5是什么呀

热心网友时间：2024-11-14 03:53

后头望去，校场的外沿追问啥意思

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com