root/Trunk/Scripts/Testing_scripts/mp3_testing/Process_mp3.pm

#!/usr/bin/perl -w
####################################################################
###
### script name: Process-mp3.pm
### modified by: Ken MacLean
### email: contact@voxforge.org
### Date: 2007.03.07
### Version: 0.1
###             
### Copyright (C) 2007 Ken MacLean
###
### This program is free software; you can redistribute it and/or
### modify it under the terms of the GNU General Public License
### as published by the Free Software Foundation; either version 3
### of the License, or (at your option) any later version.
###
### This program is distributed in the hope that it will be useful,
### but WITHOUT ANY WARRANTY; without even the implied warranty of
### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
### GNU General Public License for more details.
###
### Change History:
###
####################################################################
package Process_mp3;
use strict;
use File::Spec;
####################################################################
#  parms
my (%parms, $command);
$parms{"debug"} = 1;
$parms{"AudioDirectory"} = "/home/kmaclean/workspace/VoxForge/Audio/Temp/16kHz_16bit";
#       $parms{"wav"}  =        $parms{"AudioDirectory"} . "/wav-temp"; # test
        $parms{"wav"}  =        $parms{"AudioDirectory"} . "/wav";      
        $parms{"mp3"}  =        $parms{"AudioDirectory"} . "/mp3";      
        $parms{"wav2"}  =       $parms{"AudioDirectory"} . "/wav2";     
        $parms{"mfc"} =         $parms{"AudioDirectory"} . "/MFCC_0_D";
$parms{"HTKBin"}  = "/usr/local/HTK" ; 
####################################################################
Main(\%parms) || die "Repository error: $?";
print STDOUT "!!!!!! completed\n";
####################################################################
# Subroutines
####################################################################
sub Main {
        my ($parameters ) = @_;
        my %parms = %$parameters;
        my $debug = $parms{"debug"};    
        my $AudioDirectory = $parms{"AudioDirectory"};  
        my $wav = $parms{"wav"};
        my $wav2 = $parms{"wav2"};
        my $mp3 = $parms{"mp3"};                        
        my $mfc = $parms{"mfc"};                        
        my($dirlist) = ReadDir($wav); # $dirlist is a pointer to array created in ReadDir
        foreach my $AudioDirName (@$dirlist) {  
                $command = ("mkdir $mp3/$AudioDirName");  print "$command\n" if $debug;  system($command)  ;    
                $command = ("mkdir $wav2/$AudioDirName");  print "$command\n" if $debug;  system($command)  ;   
                ConvertWav(\%parms, $AudioDirName)|| die "ConvertWav error: $?";
                print "MFCC completed for $mp3/$AudioDirName\n";                

                $command = ("mkdir $mfc/$AudioDirName");  print "$command\n" if $debug;  system($command)  ;                    
                ConvertWav2mfc(\%parms, $AudioDirName)|| die "ConvertWav2mfc error: $?";
                print "MFCC completed for $mfc/$AudioDirName\n";
        }
        print "\nRepository-mp3.pl completed!****************************************************\n\n";
}

sub ReadDir {
        my($Dir) = @_;
        my @dirlist;
        opendir(DIR, $Dir) || die ("Unable to open file: $Dir");
        while (my $line = readdir(DIR)) {
                chomp ($line);
                if ($line ne "." and $line ne ".." ) {
                                push @dirlist,$line;
                }
        }       
        close(DIR); 
        return \@dirlist; #send pointer back to caller
}

sub ConvertWav {
        # convert wav file to mp3 and then back to wav
        my ($parameters, $AudioDirName ) = @_;  
        my %parms = %$parameters;
                my $debug = $parms{"debug"};    
                my $wav = $parms{"wav"};
                my $mp3 = $parms{"mp3"};
                my $wav2 = $parms{"wav2"};
        my $wav_path = "$wav/$AudioDirName/wav";
        my $mp3_path = "$mp3/$AudioDirName/mp3";
        my $wav2_path = "$wav2/$AudioDirName/wav";              
        $command = ("mkdir $mp3_path");  print "$command\n" if $debug;  system($command)  ; 
        $command = ("mkdir $wav2_path");  print "$command\n" if $debug;  system($command)  ;    
        opendir(DIR, "$wav_path") || die ("Unable to open directory: $wav_path");
        while (my $filename = readdir(DIR)) {
                chomp ($filename);
                my @filename = split(/\./,$filename);
                my $filename_nosuffix = shift(@filename);
                my $suffix = "@filename";
                if ($suffix eq "wav") {
#                       print "converting:$wav_path\/$filename\n" if $debug;
                        # wav to mp3
                        $command = ("lame -h -b 128 $wav_path/$filename $mp3_path/$filename_nosuffix\.mp3" ); system($command) == 0 or die "system $command failed: $?";      
                        # mp3 to wav
                        $command = ("sox $mp3_path/$filename_nosuffix\.mp3 $wav2_path/$filename_nosuffix\.wav" ); system($command) == 0 or die "system $command failed: $?";      
                }       
        }
        close(DIR);
        return 1;
}

sub ConvertWav2mfc {
        my ($parameters,$AudioDirName) = @_;    
        my %parms = %$parameters;
                my $debug = $parms{"debug"};    
                my $wav2 = $parms{"wav2"};      
                my $mfc = $parms{"mfc"};                                
                my $HTKbin = $parms{"HTKBin"};
        my $wav2_path = "$wav2/$AudioDirName/wav";
        my $mfc_path = "$mfc/$AudioDirName/mfc";
        $command = ("mkdir $mfc_path");  print "$command\n" if $debug;  system($command)  ;     
        opendir(DIR, "$wav2_path") || die ("Unable to open directory: $wav2");
        while (my $filename = readdir(DIR)) {
                chomp ($filename);
                my @filename = split(/\./,$filename);
                my $filename_nosuffix = shift(@filename);
                my $suffix = "@filename";
                if ($suffix eq "wav") {         
#                       print "converting:$wav2_path\/$filename\n" if $debug;                    
                        $command = ("$HTKbin/HCopy -A -D -T 1 -C wav_config $wav2_path/$filename $mfc_path/$filename_nosuffix\.mfc" ); system($command) == 0 or die "system $command failed: $?";      
                }
        }
        close(DIR);
        return 1;
}
1;