root/Trunk/Scripts/AcousticModel_scripts/AcousticModel/QuickStart.pm

#!/usr/bin/perl -w
####################################################################
###
### script name: QuickStart.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 QuickStart;
use strict;
# modules

my $command;
####################################################################
# Subroutines
####################################################################
sub Process {
        my ($parms, $Nightly_subdir) = @_;
                my $debug = $$parms{"debug"};
                my $QSdir = $$parms{"QSdir"};
                my $Nightly_dirname = $$parms{"Nightly_dirname"};
                my $HTKdir = $$parms{"HTK_dir"};                        
        $command = ("cp -r $QSdir $Nightly_dirname");  print "$command\n" if $debug;system($command) == 0 or die "system $command failed: $?";  
        # Linux
        my $TargetQSlindir =("$Nightly_dirname/QuickStart/Linux/julius-3.5.2-quickstart-linux/acoustic_model_files");
        $command = ("cp $HTKdir/interim_files/hmm15/hmmdefs $TargetQSlindir"); print "$command\n" if $debug;system($command) == 0 or die "system $command failed: $?";  
        $command = ("cp $HTKdir/interim_files/tiedlist $TargetQSlindir");print "$command\n" if $debug;system($command) == 0 or die "system $command failed: $?";  
        # Windows
        my $TargetQSwindir =("$Nightly_dirname/QuickStart/Windows/julius-3.5.2-quickstart-windows/acoustic_model_files");
        $command = ("cp $HTKdir/interim_files/hmm15/hmmdefs $TargetQSwindir"); print "$command\n" if $debug;system($command) == 0 or die "system $command failed: $?";  
        $command = ("cp $HTKdir/interim_files/tiedlist $TargetQSwindir"); print "$command\n" if $debug;system($command) == 0 or die "system $command failed: $?";  
        return 1;
}
1;