Select Code to Download

# create a file with 65536 bytes of zeros (i.e. 32768 short int zeros)
+:

...

perl -e 'print pack("s",0) x 32768; print pack("s",1) x 32768' > zeros
+-ones.raw

sox -t raw -e signed-integer -b 16 -r 8000 -c 1 zeros.raw zeros.wav

#!/usr/bin/perl

...
$h{$ints[$_]}++ for (0..$#ints);
print "distinct int values found in $infile:\n";
print "  $_ occurs $h{$_} times\n" for (keys %h);