如果文件比较小的话只期望看是否一样的话，直接全load进内存比一下就可以
print filecmp("a.txt", "b.txt");
sub filecmp{ loadfile($_[0]) cmp loadfile($_[1]);}
sub loadfile{
local $/=undef;
open(my $h, shift) || return '';
my $str =<$h>;
close($h);
$str;
}
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024