Changeset 2601 for Trunk/Scripts/Audio_scripts/AudioSegmentation/AudioBook/Dictionary.pm

Timestamp:

05/30/08 22:25:39 (6 months ago)

Author:

kmaclean

Message:

AudioSegmentation scripts - snapshot

Files:

• Trunk/Scripts/Audio_scripts/AudioSegmentation/AudioBook/Dictionary.pm (modified) (4 diffs)

Trunk/Scripts/Audio_scripts/AudioSegmentation/AudioBook/Dictionary.pm

@@ -192 +192 @@
-        my $missingWordList = $self->_getMissingWordList($missing_words);
-        my %prompts;
+        my @missingWordsPrompts;        
+        my @missingWordsValidated;
+        print "\nValidate Alternate Pronunciations:\n"; 
+        print   "----------------------------------\n"; 
-        open(PROMPTS,"$prompts") or confess ("cannot open $prompts file");
-        open(MISSINGWORDPROMPTS,">AudioBook/interim_files/missingWordsFolder/missingWordPrompts") or confess ("cannot open AudioBook/interim_files/wav/missingWordPrompts file");               
-        open(MISSINGWORDSVAL,">AudioBook/interim_files/missingWords_validated") or confess ("cannot open AudioBook/interim_files/missingWords_validated file");         
-        while (my $line = <PROMPTS>) { 
-                chomp $line;    
@@ -203 +205 @@
-                                my $wavfilename = $promptID . "\.wav";
-                                copy("AudioBook/interim_files/wav/$wavfilename","AudioBook/interim_files/missingWordsFolder/$wavfilename");                             
-
+
+
-                                my @phoneList = $self->_forceAlignPromptLine($altDict, $word,$promptID,\@line); # force align entire prompt line
-rint MISSINGWORDSVAL "$word [$word] @phoneList\n"
+ush (@missingWordsValidated,"$word [$word] @phoneList\n")
-                        }
-                }
-        }
-        close PROMPTS;
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-}
-
@@ -228 +244 @@
-        open(ALIGNED_OUT,"$aligned_out") or confess ("cannot open $aligned_out file");
-        my (@phoneList,$gatherPhones);
-
+#
-        while (my $line = <ALIGNED_OUT>) {
-                my @line = split(/\s/, $line);
-                print "_forceAlignPromptLine:line:@line\n";
-                my($startTime,$stopTime, $phone, $probability, $recword) = @line;
-                print "_forceAlignPromptLine:$startTime,$stopTime, $phone, $probability, $recword\n";
-                if (defined($recword)) {
-                        if ($recword eq $word) {
@@ -241 +255 @@
-                        }
-                } 
-
-                if ($gatherPhones) {
-                        if ($phone ne "sp"){