- Timestamp:
- 06/09/08 21:09:55 (6 months ago)
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
Trunk/Scripts/Audio_scripts/AudioSegmentation/AudioBook.pm
r2606 r2608 377 377 #$self->{"textFile"}="AudioBook/test/text-simple.txt"; 378 378 $self->{"textFile"}="AudioBook/test/text-original.txt"; 379 $command = ("cp AudioBook/input_files/VoxForgeDict AudioBook/interim_files/VoxForgeDict"); print "cmd:$command\n" ; system($command);379 $command = ("cp AudioBook/input_files/VoxForgeDict AudioBook/interim_files/VoxForgeDict"); print "cmd:$command\n" if $debug; system($command); 380 380 $self->{"pronDict"}="AudioBook/interim_files/VoxForgeDict"; 381 381 $self->{"tarSuffix"}=_random_characters(3); … … 387 387 $self->{"log_single_quotes"}= 1; 388 388 $self->{"verify_segments"}=1; 389 $self->{"verify_out_of_vocabulary_pronunciations"}=1; 389 $self->{"verify_out_of_vocabulary_pronunciations"}=1; 390 390 $self->{"README"}="AudioBook/input_files/README"; 391 391 $self->{"LICENSE"}="AudioBook/input_files/LICENSE"; … … 490 490 exit; 491 491 } 492 print "audiofile:" . $self->{"audiofile"}. "\n" ;493 print "textFile:" . $self->{"textFile"}. "\n" ;494 print "pronDict:" . $self->{"pronDict"} . "\n\n" ;492 print "audiofile:" . $self->{"audiofile"}. "\n" if $debug; 493 print "textFile:" . $self->{"textFile"}. "\n" if $debug; 494 print "pronDict:" . $self->{"pronDict"} . "\n\n" if $debug; 495 495 } 496 496 … … 625 625 } 626 626 627 627 =item * getVerify_out_of_vocabulary_pronunciations() 628 629 =cut 630 631 sub getVerify_out_of_vocabulary_pronunciations { 632 my $self = shift; 633 return $self->{"verify_out_of_vocabulary_pronunciations"}; 634 } 635 628 636 629 637 =head1 Change Log