voxforge.org
VoxForge Dev
Home · Read · Listen · Forums · Dev · Downloads · About
Show
Ignore:
Timestamp:
05/27/08 12:38:46 (6 months ago)
Author:
kmaclean
Message:

AudioSegmentation scripts -snapshot

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r2594 r2595  
    8181=head1 REQUIREMENTS 
    8282 
    83 =item 1 - Sequitor G2P trainable Grapheme-to-Phoneme converter (which requires Python to be installed) 
     83=item 1 - Sequitor G2P trainable Grapheme-to-Phoneme converter (GPL v2; requires Python to be installed) 
    8484 
    8585        http://www-i6.informatik.rwth-aachen.de/web/Software/g2p.html 
    …… 
    8888 
    8989        http://htk.eng.cam.ac.uk/ 
     90         
     91        The HTK toolkit needs to be in your path (see http://www.voxforge.org/home/dev/acousticmodels/linux/create/htkjulius/tutorial/download) 
    9092 
    9193=head1 ALGORITHM 
    …… 
    166168                close LOG 
    167169        }  
    168         # dict may get manually updated; dict only includes suggested prompts 
     170        # dict may get manually updated; dict only includes suggested prompts, therefore do not copy to output - suggested pronunications are in the log regardless ... 
    169171        #... $command = ("cp AudioBook/interim_files/dict AudioBook/output_files"); print "cmd:$command\n" if $debug; system($command);          
    170         $command = ("cp AudioBook/interim_files/prompts AudioBook/output_files/prompts"); print "cmd:$command\n" if $debug; system($command);    
    171172 
    172173        my $audio = AudioBook::Audio->new($self); 
    …… 
    182183=head2 cleanupFiles 
    183184 
    184 Removes any old files in the AudioBook/interim_files/ and AudioBook/output_files/ directories. 
     185Removes any old files in the AudioBook/interim_files/ and AudioBook/output_files/ directories, prior to processing. 
    185186 
    186187=cut 
    …… 
    228229        $mday = sprintf("%02d", $mday); 
    229230        print "creating gzipped tar file:$username\-$year$mon$mday\-$tarSuffix\.tgz \n"; 
    230         # !!!!!! 
    231         #$command = ("cp $readme AudioBook/output_files/README"); print "cmd:$command\n" if $debug; system($command); 
    232231        if (defined($readme)) { 
    233232                copy("$readme","AudioBook/output_files/README"); 
    …… 
    235234                print "Warning: no README file to copy\n"; 
    236235        } 
    237         #$command = ("cp $license AudioBook/output_files/LICENSE"); print "cmd:$command\n" if $debug; system($command);          
    238236        if (defined($license)) { 
    239237                copy("$license","AudioBook/output_files/LICENSE"); 
    …… 
    241239                print "Warning: no LICENSE file to copy\n"; 
    242240        } 
     241        copy("AudioBook/interim_files/prompts","AudioBook/output_files/prompts"); 
    243242        $command = ("cp AudioBook/interim_files/wav/* AudioBook/output_files/wav/"); print "cmd:$command\n" if $debug; system($command);         
    244         # !!!!!!         
    245243        if ($debug) { 
    246244                $command = ("tar -zcvf $username\-$year$mon$mday\-$tarSuffix\.tgz AudioBook/output_files --exclude \"\.svn\" "); print "cmd:$command\n" if $debug; system($command); 
    …… 
    270268        my ($self)= @_; 
    271269        my $debug = $self->{'debug'};    
    272         getopts('a:b:d:hl:m:p:r:s:t:u:x:q:v:ST');    #  sets $opt_* as a side effect. 
     270        getopts('a:b:d:hl:m:p:r:s:t:u:x:q:vST');    #  sets $opt_* as a side effect. 
    273271        if ($opt_a and $opt_t) {         
    274272                if (-r $opt_a) { 
    …… 
    322320                } 
    323321                if ($opt_v) { 
    324                         if ($opt_v =~ /^y|yes$/i) { 
    325                                 $self->{"verify_segments"}=1; 
    326                         } else { 
    327                                 $self->{"verify_segments"}=0; 
    328                         } 
     322                        $self->{"verify_segments"}=1; 
    329323                } else { 
    330324                        $self->{"verify_segments"}=0;    
    …… 
    401395                print "\n\t* required for script to run\n";      
    402396                print "\n";      
     397                print "--\n";                    
     398                print "Free Speech... Recognition\n"; 
     399                print "http://www.voxforge.org\n\n"; 
    403400                exit; 
    404401        } else { 
    …… 
    406403                print   "==================================\n";  
    407404                print "Parms -a and -t need to be defined. Use -h parameter for more information\n\n"; 
     405                print "--\n";                    
     406                print "Free Speech... Recognition\n"; 
     407                print "http://www.voxforge.org\n\n"; 
    408408                exit; 
    409409        } 
©2005-2008 VoxForge