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

#!/usr/bin/perl -w
####################################################################
###
### script name: Test_mp3.pm
### modified by: Ken MacLean
### email: contact@voxforge.org
### Date: 2007.03.08
### Command: ./Test_mp3.pm
### 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.
###
####################################################################
package Test_mp3;
use strict;
use File::Spec;
use POSIX qw(strftime);
####################################################################
#  parms
my (%parms, $command);
$parms{"debug"} = 1;
$parms{"AudioDirectory"} = "/home/kmaclean/workspace/VoxForge/Audio/Temp/16kHz_16bit";
        $parms{"wav2-MFCC_0_D"}  =      $parms{"AudioDirectory"} . "/wav2-MFCC_0_D";    
        $parms{"wav-MFCC_0_D"}  =       $parms{"AudioDirectory"} . "/wav-MFCC_0_D";     
$parms{"Nightly_test_dir"} = "/home/kmaclean/workspace/VoxForge/Scripts/Testing_scripts/Nightly_test";  
$parms{"LexiconDirectory"} = "/home/kmaclean/workspace/VoxForge/Lexicon";       
$parms{"HTKBin"}  = "/usr/local/HTK" ; 
$parms{"JulianBin"}  = "/home/kmaclean/bin/julius-3.5.2-multipath-linuxbin/bin" ;
####################################################################
Process(\%parms);
print "Test_mp3.pm completed!\n";

sub Process {
        my ($parameters ) = @_;
                my %parms = %$parameters;
                my $debug = $parms{"debug"};    
                my $HTKbin = $parms{"HTKBin"};
                my $Nightly_test_dir = $parms{"Nightly_test_dir"} ;     
        $command = ("cd $Nightly_test_dir && perl $HTKbin/prompts2mlf testref.mlf testprompts"); print "$command\n" if $debug; system($command);   
        process16kHz_16bit(\%parms) || die "Nightly_test error: $?";

        return 1;    
}
####################################################################
### Subroutines
####################################################################
sub process16kHz_16bit {
        my ($parameters ) = @_;
        my %parms = %$parameters;
                my $debug = $parms{"debug"};
                my $Nightly_dirname = $parms{"Nightly_dirname"};
                my $AM_Dir = "/home/kmaclean/workspace/VoxForge/Audio/Temp/16kHz_16bit/wav-MFCC_0_D/acoustic_model_files";
        open(OUTPUT, ">TestResults") or die ("cannot write to TestResults file"); # open for output                     
        HTK_16kHz_16bit(\%parms, $AM_Dir) || die "Nightly_test error: $?";
        Julian_16kHz_16bit(\%parms, $AM_Dir) || die "Nightly_test error: $?";
        return 1;    
}

sub HTK_16kHz_16bit {
        my ($parameters, $AM_Dir ) = @_;
                my %parms = %$parameters;       
                my $debug = $parms{"debug"};
                my $LexiconDirectory = $parms{"LexiconDirectory"};
                my $HTKbin = $parms{"HTKBin"} ;
                my $Nightly_test_dir = $parms{"Nightly_test_dir"};      
        my $wordinspen = "0.0";
        my $gramscfact = "1.0";
        system("rm -f recout.mlf"); 
        $command = ("cd $Nightly_test_dir && $HTKbin/HVite -A -D -T 1 -H $AM_Dir/macros -H $AM_Dir/hmmdefs -C $Nightly_test_dir/wav_config -S $Nightly_test_dir/test_wavlst16kHz_16bit -l '*' -i recout.mlf -w $Nightly_test_dir/wdnet -p $wordinspen -s $gramscfact $LexiconDirectory/VoxForge/VoxForgeDict $AM_Dir/tiedlist  1>/dev/null 2>/dev/null");  system($command);  
        my $HTK_TestResults = `cd $Nightly_test_dir &&  $HTKbin/HResults -I testref.mlf $AM_Dir/tiedlist recout.mlf`;
        $HTK_TestResults =~ s/ HTK//;
        print OUTPUT ("HTK 16kHz_16bit\n");    
        print OUTPUT ("---------------\n");   
        print OUTPUT ("  Parameters:\n");               
        print OUTPUT ("\tword insertion penalty: $wordinspen\n"); 
        print OUTPUT ("\tgrammar scale factor: $gramscfact\n");         
        print OUTPUT "$HTK_TestResults\n";
        return 1;       
}

sub Julian_16kHz_16bit {        
        my ($parameters, $AM_Dir ) = @_;
                my %parms = %$parameters;       
                my $debug = $parms{"debug"};            
                my $HTKbin = $parms{"HTKBin"} ;
                my $JulianBin = $parms{"JulianBin"};
                my $Nightly_test_dir = $parms{"Nightly_test_dir"};      
        my $penalty1="0.5";
        my $penalty2="100.0";
        my $iwsppenalty = "-55.0";
        system("rm -f julianProcessed");                
        $command = ("cd $Nightly_test_dir &&  $JulianBin/julian -penalty1 $penalty1 -penalty2 $penalty2 -iwsppenalty $iwsppenalty -input rawfile -filelist test_wavlst16kHz_16bit -h $AM_Dir/hmmdefs -hlist $AM_Dir/tiedlist -smpFreq 16000  -C julian.jconf  > julianOutput 2>/dev/null"); print "$command\n" if $debug; system($command) ; 
        $command = ("cd $Nightly_test_dir &&  perl ./ProcessJulianOutput.pl julianOutput julianProcessed"); print "$command\n" if $debug; system($command) ;   
        my $Julian_TestResults = `cd $Nightly_test_dir &&  $HTKbin/HResults -I testref.mlf $AM_Dir/tiedlist julianProcessed` ; 
        $Julian_TestResults =~ s/ HTK//;
        print OUTPUT ("Julian 16kHz_16bit\n"); 
        print OUTPUT ("------------------\n");           
        print OUTPUT ("  Parameters:\n");       
        print OUTPUT ("\tword insertion penalty\n");  
        print OUTPUT ("\t  first pass (-penalty1):$penalty1\n");  
        print OUTPUT ("\t  second pass (-penalty2):$penalty2\n");  
        print OUTPUT ("\ttransition penalty (-iwsppenalty):$iwsppenalty (for short-term inter-word pauses between words)\n");           
        print OUTPUT "$Julian_TestResults\n";
        return 1;       
}
1;