Mercurial > spc_convert

view old/spcconvert.pl @ 9:477c36226481 tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 source
     1 



     2 



     3 $dir='./';



     4 opendir DIR, $dir;



     5 @files=grep !/^\./, readdir(DIR);



     6 $" = "\n";



     7 #print "@files";



     8 $name = "A";



     9 



    10 for (@files){



    11 	if ($_=~m/\.spc$/) {



    12         #print "$_\n";



    13 		



    14 		$base = $_;



    15 		$base =~ s/\.spc//;



    16         system("spcplay -z $base.spc -w $base.wav\n");



    17 	



    18 		}



    19 		



    20 		



    21 		



    22 }