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