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

Timestamp:

06/04/08 11:49:09 (7 months ago)

Author:

kmaclean

Message:

AudioSegmentation scripts - snapshot

Files:

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

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

@@ -241 +241 @@
-                my ($word,$returnword, @phones) = @temp; 
-                if (defined($missingWordsValidated{$word})) {
-temp = "$missingWordsValidated{$word}\n"
-$missingWordsValidated{$word} = $temp . "$word\t@phones";                      
+array = $missingWordsValidated{$word}
+push @$array,\@phones;  # see perlref
-                } else {
-
+
+
+
-                }
-        }
@@ -255 +257 @@
-        while (my $line = <MISSINGWORDSOUT>) {
-                chomp $line;
-                #print MISSINGWORDSCOMB "g2p:$word\t\t@phones\n";
-                my @temp = split (/\s+/,$line);
-                ($word,$returnword, @phones) = @temp; 
@@ -262 +263 @@
-        format_name MISSINGWORDSCOMB "G2P";
-                write MISSINGWORDSCOMB;
-#print MISSINGWORDSCOMB "$missingWordsValidated{$word}\n";
-@temp = split (/\s+/,$missingWordsValidated{$word});
-($word,@phones) = @temp; 
-               $phones = join(" ",@phones)
-        format_name MISSINGWORDSCOMB "HVITE"
-write MISSINGWORDSCOMB;
+my $array = $missingWordsValidated{$word};             
+foreach my $lines (@$array) {
+       $phones = join(" ",@$lines);
+               format_name MISSINGWORDSCOMB "HVITE"
+                       write MISSINGWORDSCOMB
+}
-        }
-        format PROMPTS =