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

Timestamp:

06/02/08 13:51:48 (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

@@ -13 +13 @@
-use Carp;
-use File::Copy;
+use FileHandle; # for cleaner FORMAT names
-use Lingua::EN::Numbers qw(num2en num2en_ordinal);
-use Lingua::EN::Numbers::Years;
@@ -176 +177 @@
-=head2 validateAlternatePronunciations 
-
-
+copy of 
-pronunciation that HVite picks, based on the phonemes it recognizes in the audio.
-
@@ -198 +199 @@
-        open(PROMPTS,"$prompts") or confess ("cannot open $prompts file");
-        while (my $line = <PROMPTS>) { 
-   
+
-                my @line = split(/\s/, $line);
-                my $promptID = shift @line;
@@ -214 +215 @@
-        close PROMPTS;
-        
-
+
+
-        foreach my $line (sort(@missingWordsPrompts)) {
-                print MISSINGWORDPROMPTS $line;
+                chomp $line;
+                my @temp = split (/:/,$line);
+                my ($word) = shift(@temp); 
+                print "word:$word\n";
+                if (defined($missingWordsPrompts{$word})) {
+                        my $temp = "$missingWordsPrompts{$word}\n";
+                        $missingWordsPrompts{$word} = $temp . "$line";                  
+                } else {
+                        $missingWordsPrompts{$word} = $line;
+                }
+                
-        }
-        close MISSINGWORDPROMPTS;       
-
-
+
+
+
-        foreach my $line (sort(@missingWordsValidated)) {
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-        print   "----------------------------------\n"; 
-}