- Timestamp:
- 05/21/08 15:26:36 (8 months ago)
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
Trunk/Scripts/Audio_scripts/AudioSegmentation/AudioBook/Audio.pm
r2588 r2589 41 41 #my $max_sentence_length = 18; 42 42 #my $min_pause_for_sentence_break = 5000000; # HTK time format - 100 millisecond increments 43 my (@max_sentences, $max_sentence_length_found, $max_sentence_length_linenumber , $min_sentence_length_linenumber);43 my (@max_sentences, $max_sentence_length_found, $max_sentence_length_linenumber); 44 44 #my $min_sentence_length_found = $max_sentence_length; 45 45 my $min_sentence_length_found = 0; 46 my $min_sentence_length_linenumber = 0; 46 47 my $up_increment = 1; 47 48 my $down_increment = -1; … … 91 92 $textContents->createMLFFile("downsampled","AudioBook/interim_files/words.mlf" ); 92 93 # forced alignment - creates aligned.out 93 print "Running HVite ...(if this seems to take too long, check interim_files/logs/HVite_log for a possible explanation\n"; 94 print "(like \"no tokens surviving\"... which means that text does not match audio)\n"; 94 print "\nRunning HVite ...\n"; 95 print "if this seems to take too long, check interim_files/logs/HVite_log for a possible explanation\n"; 96 print "(like \"no tokens surviving\"... which means that text does not match audio)\n\n"; 95 97 $command = ("pwd && HVite -A -D -T 1 -l '*' -a -b SENT-END -m -C $htk_files/wav_config -H $htk_files/models/macros -H $htk_files/models/hmmdefs -m -t 250.0 150.0 1000.0 -I AudioBook/interim_files/words.mlf -i AudioBook/interim_files/aligned.out -S $htk_files/train.scp AudioBook/interim_files/dict $htk_files/models/tiedlist > AudioBook/interim_files/logs/HVite_log"); system($command) == 0 or confess "error: $command failed: $?"; 96 98 open (HVite_Log,"AudioBook/interim_files/logs/HVite_log") || confess "error: can't open AudioBook/interim_files/HVite_log: $?";