Es gibt ein Modul dafür: Digest :: MD5 :: File . Damit vereinfacht sich der Code zu:
%Vor%Sicher kannst du. Suchen Sie einfach nach Digest :: MD5 für den Hash-Teil und irgendein WAV-bezogenes Modul , wenn Sie einen bestimmten Teil der Datei hasen möchten (z. B. das Überspringen von Metadaten).
>Verwenden Sie den Digest :: MD5
%Vor%oder Sie könnten die OO-Schnittstelle verwenden:
%Vor%Verwenden Sie einfach Digest :: MD5 .
Je nach Ihren Bedürfnissen kann Perceptual Hashing übrigens auch interessant sein. Sie können Dateien vergleichen, indem Sie ihre Hashes vergleichen (ähnliche Inhalte haben ähnliche Hashes). Allerdings gibt es immer noch keine Perl-Implementierung AFAIK.
Folgendes, basierend auf ein Kommentar von Benutzer hexten , funktioniert für mich und sollte besser funktionieren als die Antworten, die die Datei schlürfen:
%Vor% Die (derzeit) am häufigsten gewählte Antwort schlägt vor, Digest::MD5::File
zu verwenden, aber das funktioniert für mich zumindest nicht auf dem neuesten Windows-Build von ActiveState Perl, und der Link in der Antwort ist jetzt tot.