Changeset 2613 for Trunk/Scripts/Audio_scripts/AudioSegmentation/AudioBook.pm

Timestamp:

06/17/08 15:25:27 (6 months ago)

Author:

kmaclean

Message:

Updated AudioSegmentation script to include class to interactively update missing word phonemes:
MissingWord::CommandLine?.pm script aloows a user to listen to actual audio segment that corresponds to missing word (+- 0.5 seconds before
and after location of word), and select best phoneme set (using output from g2p and HVite results on the actual audio), or modify suggested phoneme sets to better reflect actual pronunciation of a word

Files:

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

Trunk/Scripts/Audio_scripts/AudioSegmentation/AudioBook.pm

@@ -22 +22 @@
-use AudioBook::Segments; 
-use AudioBook::MissingWords;
+use AudioBook::MissingWords::CommandLine; 
-use AudioBook::Chapter;
-
@@ -36 +37 @@
-It is executable from the command line and uses the following configuration options to help in segmenting speech:
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-=head1 Suggested Segmentation Approach:
@@ -198 +203 @@
-### Class Variables
-####################################################################
-
-
-
-
-
-
-
+
+
+
+
+
+
-bless($self,"AudioBook");
-
@@ -215 +219 @@
-### Main
-####################################################################
-$self->cleanupFiles();
-$self->getOptions();
-
+
+
+
+
+
+
+
+
+
+
+
-print "completed!\n";
-
@@ -235 +248 @@
-        my ($self)= @_;
-        my $tarSuffix = $self->{"tarSuffix"};
-        
-        my $chapter = AudioBook::Chapter->new($self);
-        # need draft missing word pronunciations before audio can be processed
-        my $missingWords = $chapter->processText(); 
-        $chapter->processAudio();               
-
+
-        my $segments = AudioBook::Segments->new($self,$chapter);
-        $segments->processAudio();      
-
+       
-        if ($chapter->getMissingWordFound()) {  
-                if ($self->getVerify_out_of_vocabulary_pronunciations()) { 
@@ -249 +261 @@
-                }
-        }
-
+       
-        if (defined($tarSuffix)){
-                _createTarFile($self);
@@ -338 +350 @@
-=head2 getOptions 
-
-
+i
-
-=cut
@@ -345 +357 @@
-        my ($self)= @_;
-        my $debug = $self->{'debug'};   
-
+i
-        if ($opt_h) {
-                print "\nVoxForge Audio Segmentation Script Parameters\n";      
@@ -353 +365 @@
-                print "\t(does not set HVite's beam width parameter)\n";
-                print "-d\tpronunciation dictionary  (default = AudioBook/input_files/VoxforgeDict)\n";
-
+
+
-                print "-l\tLICENSE file (default = AudioBook/input_files/LICENCE)\n";
-                print "-m\tTarget maximum sentence length (default = $default_max_sentence_length words)\n";
@@ -377 +390 @@
-                exit;
-        } elsif ($opt_S) { # Sanity test switch
+                $self->{'testing'} = 1; 
-                $self->{"audiofile"}="AudioBook/test/audio.wav";
-                #$self->{"textFile"}="AudioBook/test/text-simple.txt";
-                $self->{"textFile"}="AudioBook/test/text-original.txt";
-                $command = ("cp AudioBook/input_files/VoxForgeDict AudioBook/interim_files/VoxForgeDict"); print "cmd:$command\n" if $debug; system($command);
-                $self->{"pronDict"}="AudioBook/interim_files/VoxForgeDict";
-                $self->{"tarSuffix"}=_random_characters(3);
@@ -484 +497 @@
-                        }
-                }
+        } elsif ($opt_i) {
+                if ($opt_i) {
+                        $self->{"interactive"}=1;
+                }
+                if (defined($opt_d)) {
+                        if (-r $opt_d) {
+                                $self->{"pronDict"}=$opt_d;
+                        } else {
+                                die "can't open -d" . $self->{"pronDict"} . "\n";       
+                        }
+                } else {
+                        $self->{"pronDict"}="AudioBook/input_files/VoxForgeDict";       
+                }
-        } else {
-                print "\nVoxForge Audio Segmentation Script\n"; 
@@ -507 +533 @@
-        my $self = shift;
-        return $self->{"average_sentence_length"};
+}
+
+=item * getInteractive()
+
+=cut
+
+sub getInteractive {
+        my $self = shift;
+        return $self->{"interactive"};
+}
+
+=item * getTesting()
+
+=cut
+
+sub getTesting {
+        my $self = shift;
+        return $self->{'testing'};
-}
-