Changeset 2183
- Timestamp:
- 05/03/07 23:04:58 (2 years ago)
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
Trunk/Scripts/AcousticModel_scripts/AcousticModel.pm
r2158 r2183 40 40 41 41 # run Acoustic Model Creation Script for 16kHz-16bit 42 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 42 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!!!! 43 43 print "\n\n***creating $rate Acoustic Model\n\n"; 44 44 MasterPrompts::Fix($parms,$rate); Trunk/Scripts/AcousticModel_scripts/Prompts/MasterPrompts.pm
r2158 r2183 30 30 my ($parms,$targetrate) = @_; 31 31 my $debug = $$parms{"debug"}; 32 my $prompts_file = $$parms{"PromptsFile"}; 32 # my $prompts_file = $$parms{"PromptsFile"}; 33 my $prompts_16kHz_16bit = $$parms{"PromptsFile_16kHz-16bit"}; 34 my $prompts_8kHz_16bit = $$parms{"PromptsFile_8kHz-16bit"}; 33 35 my $HTKdir = $$parms{"HTK_dir"}; 34 36 my $AudioDirectory = $$parms{"AudioDirectory"}; 35 37 my $line; 36 open(INPUT, "$prompts_file") or die ("cannot open $prompts_file for reading"); # open for input 38 # !!!!!! 39 # open(INPUT, "$prompts_file") or die ("cannot open $prompts_file for reading"); # open for input 40 if ($targetrate eq "16kHz_16bit") { 41 open(INPUT, $prompts_16kHz_16bit) or die ("cannot open $prompts_16kHz_16bit for reading\n"); # open for input 42 } elsif ($targetrate eq "8kHz_16bit") { 43 open(INPUT, $prompts_8kHz_16bit) or die ("cannot open $prompts_8kHz_16bit for reading\n"); # open for input 44 } else { 45 die ("$targetrate not set up!\n"); 46 } 47 # !!!!!! 37 48 open(OUTPUT, ">$HTKdir/interim_files/master_prompts") or die ("cannot open $HTKdir/interim_files/master_prompts for output"); # open for output 38 49 my $mfcc_location = "$AudioDirectory/MFCC/$targetrate/MFCC_0_D";