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
后头望去，校场的外沿追问啥意思
