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

Timestamp:

05/25/08 20:14:38 (6 months ago)

Author:

kmaclean

Message:

AudioSegmentation scripts -snapshot

Files:

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

Trunk/Scripts/Audio_scripts/AudioSegmentation/AudioBook.pm

@@ -30 +30 @@
-use Getopt::Std;
-use File::Basename;
+use File::Copy;
-use lib '/home/kmaclean/VoxForge-dev/Main/Scripts/Audio_scripts/AudioSegmentation';
-use AudioBook::Audio;
@@ -37 +38 @@
-### Class Variables
-####################################################################
-d,$opt_h,$opt_l,$opt_m,$opt_p,$opt_r,$opt_s,$opt_t,$opt_x
+b,$opt_d,$opt_h,$opt_l,$opt_m,$opt_p,$opt_r,$opt_s,$opt_t,$opt_x,$opt_q
-my %self;
-$self{'debug'} = 0;
@@ -85 +86 @@
-        } else {
-                open(LOG,">>$log") or confess ("cannot open AudioBook/output_files/MissingWords file");
-added to Pronunciation Dictionary
+that need to be added to Pronunciation Dictionary, with suggested pronunciations:
-                print LOG "------------------------------------------------\n";                         
-                print LOG "no missing words\n";
@@ -93 +94 @@
-        my $audio = AudioBook::Audio->new($self);
-        $audio->segment($audiofile,$textContents);
+        $audio->verifySegments; 
-        if (defined($tarSuffix)){
-                _createTarFile($self);
@@ -106 +108 @@
-                unlink (<AudioBook/interim_files/logs/*>);      
-        }
+        if (defined(<AudioBook/interim_files/wav/*>)) {
+                unlink (<AudioBook/interim_files/wav/*>);       
+        }       
-        if (defined(<AudioBook/output_files/wav/*>)) {
-                unlink (<AudioBook/output_files/wav/*>);        
@@ -127 +132 @@
-        $mday = sprintf("%02d", $mday);
-        print "creating gzipped tar file:$username\-$year$mon$mday\-$tarSuffix\.tgz \n";
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-        if ($debug) {
-                $command = ("tar -zcvf $username\-$year$mon$mday\-$tarSuffix\.tgz AudioBook/output_files --exclude \"\.svn\" "); print "cmd:$command\n" if $debug; system($command);
@@ -150 +168 @@
-        my ($self)= @_;
-        my $debug = $self->{'debug'};   
-d:hl:m:p:r:s:t:u:x
+b:d:hl:m:p:r:s:t:u:x:q
-        if ($opt_a and $opt_t) {        
-                if (-r $opt_a) {
@@ -186 +204 @@
-                } else {
-                        $self->{"min_pause_for_sentence_break"}= $default_min_pause_for_sentence_break; 
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-                ### Tar file processing
-                if (defined($opt_T)) {
@@ -233 +265 @@
-                print   "=============================================\n";      
-                print "-a\t* audio file name (WAV format only)\n";
+                print "-b\tbeam width for Forced Alignment with HVit (default = 250)\n";
-                print "-d\tpronunciation dictionary  (default = AudioBook/input_files/VoxforgeDict)\n";
-                print "-h\tshow help\n";        
@@ -238 +271 @@
-                print "-m\tMaximum sentence length (default = $default_max_sentence_length words)\n";
-                print "-p\tMinimum pause for sentence break (default = $default_min_pause_for_sentence_break in units of 100ns)\n";             
-
+
+
-                print "-s\tAverage sentence length (default = $default_average_sentence_length words)\n";                               
-                print "-t\t* text file name\n";