你看过Digest :: CRC吗?来自文档:"它包含具有CRC-CCITT,CRC-16,CRC-32和CRC-64的正确参数的包装函数,以及OpenPGP的ASCII装甲校验和中使用的CRC."
use strict;
use warnings;
use Digest::CRC;
my $ctx = Digest::CRC->new( type => 'crc32' );
open my $fh, '<:raw', $ARGV[0] or die $!;
$ctx->addfile(*$fh);
close $fh;
print $ctx->hexdigest, "\n";
Run Code Online (Sandbox Code Playgroud)
命令行用法: perl script.pl inFile
希望这可以帮助!