- Timestamp:
- 05/27/08 12:38:46 (6 months ago)
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
Trunk/Scripts/Audio_scripts/AudioSegmentation/AudioBook/Audio.pm
r2593 r2595 19 19 ### Class Variables 20 20 #################################################################### 21 #my $average_sentence_length = 13;22 #my $max_sentence_length = 18;23 #my $min_pause_for_sentence_break = 5000000; # HTK time format - 100 millisecond increments24 21 my (@max_sentences, $max_sentence_length_found, $max_sentence_length_linenumber); 25 #my $min_sentence_length_found = $max_sentence_length;26 22 my $min_sentence_length_found = 0; 27 23 my $min_sentence_length_linenumber = 0; … … 31 27 32 28 =head1 METHODS (not user accessible) 33 34 =cut35 29 36 30 =head2 new … … 477 471 my $debug = $self->{"debug"}; 478 472 my $log = $self->{"log"}; 479 473 474 print "Verify Prompts (each dot represents a processed prompt file):\n"; 480 475 open(PROMPTS, "<AudioBook/interim_files/prompts") or confess ("cannot open AudioBook/output_files/prompts for output"); 481 476 my @promptScores; … … 490 485 my $avgLogLikelihoodPerFrame = $self->_processHviteLog($wavfilename); 491 486 push (@promptScores,[$avgLogLikelihoodPerFrame,$fileID,"@promptList"]); 492 } 487 print "\."; 488 } 489 print "\n"; 493 490 close (PROMPTS); 494 491 close (MLF); … … 497 494 498 495 open(LOG,">>$log") or confess ("cannot open $log file"); 499 print LOG "\n prompts with the lowest average log likelihood per frame:\n";500 print LOG "\n(confirm anything with an avgloglikof less than 60):\n";501 print LOG "--------------------------------------------------------- \n";496 print LOG "\nTop 15 prompts with the lowest average log likelihood per frame\n"; 497 print LOG "(confirm anything with an avg log likelihood of less than 60):\n"; 498 print LOG "---------------------------------------------------------------\n"; 502 499 my $x; 503 500 foreach my $line (@sortedlist) { 504 501 print LOG "$$line[0] $$line[1] $$line[2]\n"; 505 502 $x++; 506 last if ($x > 1 5);503 last if ($x > 14); 507 504 } 508 505 close LOG;