Re: Compare wav files

use 5.010;
use Audio::Wav;

my $file1 = Audio::Wav->read("file1.wav");
my $file2 = Audio::Wav->read("file2.wav");

say "Files same length (in seconds)"
  if $file1->length_seconds == $file2->length_seconds;

say "Files same sample rate"
  if $file1->details->{sample_rate} == $file2->details->{sample_rate};
[download]

perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

Comment on Re: Compare wav files Download Code

Replies are listed 'Best First'.
A reply falls below the community's threshold of quality. You may see it by logging in.