如何使用 Perl Digest::xxHash 计算文件的哈希值答案

【问题标题】：How to use Perl Digest::xxHash to calculate hash of a file如何使用 Perl Digest::xxHash 计算文件的哈希值
【发布时间】：2021-07-29 07:13:52
【问题描述】：

https://metacpan.org/pod/Digest::xxHash 展示了如何计算字符串的哈希值。

my $hex_64  = xxhash64_hex( $data, $seed );

如何使用该模块快速计算大文件的哈希？

【问题讨论】：

标签： perl hash

【解决方案1】：

感谢 brian d foy 提供的解决方案：

use Digest::xxHash;
use File::Map 'map_file';
map_file my $data, $file, '+<';
my $seed;
my $hex_64 = xxhash64_hex( $data, $seed );

这个大文件可能有 GB 大小，所以我不想像这样把它塞进内存：

use Digest::xxHash;
sysopen my $fh, $file, 0 or die;
my $data = do { local $/; <$fh> };
my $seed;
my $hex_64 = xxhash64_hex( $data, $seed );

【讨论】：