Skip to content

Instantly share code, notes, and snippets.

@windytan
Last active Dec 17, 2015
Embed
What would you like to do?
open(IN, "sox scrambled.wav -r 8600 -c 1 -t .s16 -|");
open(OUT,"|sox -r 8600 -c 1 -t .s16 - descrambled.wav");
$n = 1;
while (not eof IN) {
read IN, $a, 2;
print OUT pack("s",unpack("s",$a) * $n);
$n *= -1;
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment