root/Trunk/Scripts/AcousticModel_scripts/AcousticModel.pm

#!/usr/bin/perl -w
####################################################################
###
### script name: AcousticModel.pm
### modified by: Ken MacLean
### email: contact@voxforge.org
### Date: 2007.04.25
### 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 AcousticModel;
use strict;
use AcousticModel::QuickStart();
use AcousticModel::Nightly();
use Prompts::MasterPrompts();

my $command;
####################################################################
# Subroutines
####################################################################
sub Create {
        my ($parms) = @_;
        # !!!!!!
        $parms->setSpeechCorpusLanguage('EN');
        # !!!!!!        
                my $debug = $$parms{"debug"};
                my $HTKdir = $$parms{"HTK_dir"};
                my $HTKbin = $$parms{"HTKBin"};

                my $LexiconDirectory = $$parms{"LexiconDirectory"};             
                
        # run Acoustic Model Creation Script for 16kHz-16bit
        my $rate = "16kHz_16bit"; # !!!!!! need to change all directories with underscore (i.e. 16kHz_16bit) to use a dash (i.e. 16kHz-16bit) - too confusing//but dash is interpreted as minus in Perl!!!!
                print "\n\n***creating $rate Acoustic Model\n\n";
                MasterPrompts::Fix($parms,$rate);
                $command = ("cd $HTKdir && \./Compile_AcousticModel.sh $HTKbin $LexiconDirectory $debug"); print "$command\n" if $debug;        system($command) == 0 or die "system $command failed: $?";      
                my $Nightly_subdir =("HTK/$rate/MFCC_O_D");
                Nightly::CreateDir($parms, $Nightly_subdir);
                QuickStart::Process($parms, $Nightly_subdir); # creating only one QuickStart using 16kHz_16bit Acoustic Models
                Nightly::Process($parms, $Nightly_subdir);
                
        # run Acoustic Model Creation Script for 8kHz-16bit
        $rate = "8kHz_16bit"; # !!!!!! need to change all directories with underscore (i.e. 8kHz_16bit) to use a dash (i.e. 8kHz-16bit) - too confusing
                print "\n\n***creating $rate Acoustic Model\n\n";
                MasterPrompts::Fix($parms,$rate);
                $command = ("cd $HTKdir && \./Compile_AcousticModel.sh $HTKbin $LexiconDirectory $debug"); print "$command\n" if $debug;        system($command) == 0 or die "system $command failed: $?";      
                $Nightly_subdir =("HTK/$rate/MFCC_O_D");
                Nightly::Process($parms, $Nightly_subdir);
}
1;