root/Trunk/Scripts/AcousticModel_scripts/Prompts/MasterPrompts.pm

#! /usr/bin/perl
####################################################################
###
### script name : MasterPrompts.pm
### version: 0.1
### created by: Ken MacLean
### mail: contact@voxforge.org
### Date: 2007.04.25
### Command: perl ./MasterPrompts.pm
###   
### 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:
### April 25, 2007 - renamed from fix_master_prompts.pl to MasterPrompts.pm
####################################################################
package MasterPrompts;
use strict;

sub Fix {
        my ($parms,$targetrate) = @_;
                my $debug = $$parms{"debug"};
                # my $prompts_file = $$parms{"PromptsFile"};
                my $prompts_16kHz_16bit = $$parms{"PromptsFile_16kHz-16bit"};
                my $prompts_8kHz_16bit = $$parms{"PromptsFile_8kHz-16bit"};
                my $HTKdir = $$parms{"HTK_dir"};        
                my $AudioDirectory = $$parms{"AudioDirectory"};         
        my $line;
# !!!!!!        
        # open(INPUT, "$prompts_file") or die ("cannot open $prompts_file for reading"); # open for input
        if ($targetrate eq "16kHz_16bit") {
                open(INPUT, $prompts_16kHz_16bit) or die ("cannot open $prompts_16kHz_16bit for reading\n"); # open for input
        } elsif ($targetrate eq "8kHz_16bit") {
                open(INPUT, $prompts_8kHz_16bit) or die ("cannot open $prompts_8kHz_16bit for reading\n"); # open for input
        } else {
                die ("$targetrate not set up!\n"); 
        }
# !!!!!!        
        open(OUTPUT, ">$HTKdir/interim_files/master_prompts") or die ("cannot open $HTKdir/interim_files/master_prompts for output"); # open for output
        my $mfcc_location = "$AudioDirectory/MFCC/$targetrate/MFCC_0_D";
        while ($line = <INPUT>) {
          print OUTPUT ("$mfcc_location/$line");
        }
        close(INPUT);
        close(OUTPUT);
}
1;