Changeset 2132
- Timestamp:
- 04/30/07 13:24:45 (2 years ago)
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
Trunk/Scripts/AcousticModel_scripts/Prompts/MasterPrompts.pm
r2114 r2132 28 28 29 29 sub Fix { 30 my ($parameters,$targetrate) = @_; 31 my %parms = %$parameters; 32 my $debug = $parms{"debug"}; 33 my $prompts_file = $parms{"PromptsFile"}; 34 my $HTKdir = $parms{"HTK_dir"}; 35 my $AudioDirectory = $parms{"AudioDirectory"}; 30 my ($parms,$targetrate) = @_; 31 my $debug = $$parms{"debug"}; 32 my $prompts_file = $$parms{"PromptsFile"}; 33 my $HTKdir = $$parms{"HTK_dir"}; 34 my $AudioDirectory = $$parms{"AudioDirectory"}; 36 35 my $line; 37 36 open(INPUT, "$prompts_file") or die ("cannot open $prompts_file for reading"); # open for input 38 open(OUTPUT, ">$HTKdir/interim_files/master_prompts") or die ("cannot open $HTKdir/interim_files/master_prompts for reading"); # open for output37 open(OUTPUT, ">$HTKdir/interim_files/master_prompts") or die ("cannot open $HTKdir/interim_files/master_prompts for output"); # open for output 39 38 my $mfcc_location = "$AudioDirectory/MFCC/$targetrate/MFCC_0_D"; 40 39 while ($line = <INPUT>) { Trunk/Scripts/Mirroring_scripts/VoxForge_config.pm
r2131 r2132 62 62 #################################################################### 63 63 # Script Location 64 $parms{"_Main"} = "/data/svn-mirror/ Trunk";64 $parms{"_Main"} = "/data/svn-mirror/Main/Trunk"; 65 65 $parms{"QSdir"} = $parms{"_Main"}."/QuickStart"; 66 66 $parms{"ScriptsDirectory"} = $parms{"_Main"}."/Scripts";