Perl 怎么将txt文件赋值给哈希
展开全部
可以用文件的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是什么呀
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
