perl - PerlでwavファイルのMD5ハッシュを計算するにはどうすればよいですか?

Question

wav ファイルがあり、その内容の MD5 ハッシュを計算する必要があります。Perlを使用してそれを行うにはどうすればよいですか?

Answer 1

そのためのモジュールがあります: Digest::MD5::File。これにより、コードは次のように簡素化されます。

use Digest::MD5::File qw( file_md5_hex );
my $md5 = file_md5_hex( $some_file_name );

Answer 2

できますよ。ハッシュ部分についてはDigest::MD5を探してください。また、ファイルの特定の部分をハッシュする場合 (たとえば、メタデータをスキップする場合) は、WAV 関連のモジュールを探してください。

Answer 3

Digest::MD5の使用

use Digest::MD5 qw(md5);
my $hash;
{
    local $/ = undef;
    open FILE, "$wav_file_name";
    binmode FILE;
    my $data = <FILE>;
    close FILE;
    $hash = md5($data);
}

または、OO インターフェイスを使用できます。

use Digest::MD5;

open FILE, "$wav_file_name";

my $ctx = Digest::MD5->new;
$ctx->addfile (*FILE);
my $hash = $ctx->digest;
close (FILE);

Answer 4

Digest::MD5を使用するだけです。

ちなみに、必要に応じて、Perceptual Hashingも興味深い場合があります。ハッシュを比較することでファイルを比較できます (類似のコンテンツには類似のハッシュがあります)。しかし、まだ perl の実装は知りません。

Answer 5

File::SlurpとDigest::MD5の使用：

#!/usr/bin/perl

use strict;
use warnings;

use Digest::MD5 qw(md5_hex);
use File::Slurp;

my ($input) = @ARGV;

write_file "$input.md5", md5_hex(scalar read_file $input, binmode => ':raw'), "\n";