Mercurial > spc_convert
diff old/spcconvert.pl @ 9:477c36226481 tip
added old scripts for historical interest.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Fri, 21 Oct 2011 07:46:18 -0700 |
parents | |
children |
line wrap: on
line diff
1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 1.2 +++ b/old/spcconvert.pl Fri Oct 21 07:46:18 2011 -0700 1.3 @@ -0,0 +1,22 @@ 1.4 + 1.5 + 1.6 +$dir='./'; 1.7 +opendir DIR, $dir; 1.8 +@files=grep !/^\./, readdir(DIR); 1.9 +$" = "\n"; 1.10 +#print "@files"; 1.11 +$name = "A"; 1.12 + 1.13 +for (@files){ 1.14 + if ($_=~m/\.spc$/) { 1.15 + #print "$_\n"; 1.16 + 1.17 + $base = $_; 1.18 + $base =~ s/\.spc//; 1.19 + system("spcplay -z $base.spc -w $base.wav\n"); 1.20 + 1.21 + } 1.22 + 1.23 + 1.24 + 1.25 +} 1.26 \ No newline at end of file