A wav is a windows format sound file.
AF - here is a small package I started for reading some basic info from wav files.
package provide wav 0.1
namespace eval ::wav {}
proc ::wav::info {file} {
set fh [open $file r]
binary scan [read $fh 12] A4iA4 sig1 len sig2
if {$sig1 != "RIFF" || $sig2 != "WAVE"} { close $fh; return -code error "Not
a WAV file" }
binary scan [read $fh 24] A4issiiss id size format channels samplerate byterate align bitrate
set len [expr {[file size $file] - [tell $fh] - 8 - ($size - 16)}]
close $fh
return [list format $format channels $channels samplerate $samplerate byterate $byterate bitrate $bitrate size $len]
}
array set data [::wav::info $argv]
if {$data(channels) == 1} {
set chans mono
} elseif {$data(channels) == 2} {
set chans stereo
} else {
set chans "$data(channels) channels"
}
puts "$argv: [expr {$data(size) / double($data(byterate))}] seconds, [expr {int($data(samplerate) / 1000.00)}]KHz, $data(bitrate)bit, $chans"