Convert.pl

#!/usr/bin/perl

# Written by Daniel Kemper, http://dankemper.net, 2006

BEGIN { system("perl fNameChange.pl"); } 

use strict();

my($errFile) = "./errors.txt";
my($sysCommand, $soxSysCommand, $lameSysCommand) = (undef, undef, undef); 
my(@sysIn) = `ls -1 | grep ogg`;

foreach $sysEl (@sysIn)
{
   $sysEl =~ s/\n//g;   
   print "\n" . $sysEl;
   $soxSysCommand = "sox -V " . $sysEl  . " " . $sysEl . ".wav"; 
   system($soxSysCommand);
   $lameSysCommand = "lame -h -b 192 " . $sysEl . ".wav";
   system($lameSysCommand); 
}

my(@mp3Arry) = `ls -1 | grep mp3`;
my($mp3Buff) = undef;
my($mvCommand) = undef;

foreach $mp3El (@mp3Arry)
{
   $mp3El =~ s/\n//g;
   $mp3Buff = $mp3El;
   $mp3El =~ s/\.ogg\.wav//g;
   $mvCommand = "mv " . $mp3Buff . " " . "\"$mp3El\"";
   system($mvCommand);       
}

# end script