voxforge.org

VoxForge Dev

Navigation

← Previous Changeset
Next Changeset →

Changeset 2576

Timestamp:

05/11/08 22:31:51 (7 months ago)

Author:

kmaclean

Message:

AudioSegmentation scripts - snapshot

Files:

Trunk/Scripts/Audio_scripts/AudioSegmentation/AudioBook.pm (modified) (2 diffs)
Trunk/Scripts/Audio_scripts/AudioSegmentation/AudioBook/Audio.pm (modified) (9 diffs)
Trunk/Scripts/Audio_scripts/AudioSegmentation/AudioBook/Dictionary.pm (modified) (5 diffs)
Trunk/Scripts/Audio_scripts/AudioSegmentation/AudioBook/Text.pm (modified) (5 diffs)
Trunk/Scripts/Audio_scripts/AudioSegmentation/AudioBook/output_files/MissingWords (modified) (1 diff)

Legend:

: Unmodified
: Added
: Removed
: Modified
: Copied
: Moved

Trunk/Scripts/Audio_scripts/AudioSegmentation/AudioBook.pm

r2575	r2576
22	22	###
23	23	### Changes:
24		### 2008/05/02 - 0.2 - ~~Convert to cla~~ss; major refacture ; renamed fullrun.pl to AudioBook.pm
	24	### 2008/05/02 - 0.2 - convert to calss; major refacture ; renamed fullrun.pl to AudioBook.pm
25	25	####################################################################
26	26	package AudioBook;
…	…
34	34	use AudioBook::Dictionary;
35	35	####################################################################
36		### ~~get Option~~s
	36	### Class Variables
37	37	####################################################################
38	38	our($opt_a,$opt_d,$opt_h,$opt_l,$opt_r,$opt_t,$opt_x,$opt_K,$opt_T,); # need to define these because using strict.
39		getopts('a:d:hl:r:t:u:x:KT'); # sets $opt_* as a side effect.
40		my ($audiofile, $textfile, $voxforgeDict,$tarSuffix,$README,$LICENCE,$username);
41		if ($opt_a and $opt_t and $opt_d) {
42		if (-r $opt_a) {
43		$audiofile=$opt_a;
	39	my %self;
	40	$self{'debug'} = 0;
	41	$self{'g2p_model'} = "AudioBook/input_files/g2p/models/model-5";
	42	$self{'htk_files'} = "AudioBook/input_files/htk";
	43	my $command;
	44
	45	####################################################################
	46	### Main
	47	####################################################################
	48	getOptions(\%self);
	49	process(\%self);
	50	print "completed!\n";
	51
	52	####################################################################
	53	### Main
	54	####################################################################
	55	sub getOptions {
	56	my ($self)= @_;
	57	getopts('a:d:hl:r:t:u:x:KT'); # sets $opt_* as a side effect.
	58	if ($opt_a and $opt_t and $opt_d) {
	59	if (-r $opt_a) {
	60	$self->{"audiofile"}=$opt_a;
	61	} else {
	62	die "can't open -a" . $self->{"audiofile"} . "\n";
	63	}
	64	if (-r $opt_t) {
	65	$self->{"textfile"}=$opt_t;
	66	} else {
	67	die "can't open -t" . $self->{"textfile"} . "\n";
	68	}
	69	if (-r $opt_d) {
	70	$self->{"voxforgeDict"}=$opt_d;
	71	} else {
	72	die "can't open -d" . $self->{"voxforgeDict"} . "\n";
	73	}
	74	###
	75	if (defined($opt_T)) {
	76	if ($opt_x) {
	77	$self->{"tarSuffix"}=substr($opt_x,3); # only use 1st 3 characters.
	78	}else {
	79	$self->{"tarSuffix"}=random_characters(3);
	80	}
	81
	82	if ($opt_r) {
	83	if (-r $opt_r) {
	84	$self->{"README"}=$opt_r;
	85	} else {
	86	die "can't open -r" . $self->{"README"} . "\n";
	87	}
	88	} else {
	89	$self->{"README"}="AudioBook/input_files/README";
	90	}
	91	if ($opt_l) {
	92	if (-r $opt_l) {
	93	$self->{"LICENCE"}=$opt_l;
	94	} else {
	95	die "can't open -l" . $self->{"LICENCE"} . "\n";
	96	}
	97	} else {
	98	$self->{"LICENCE"}="AudioBook/input_files/LICENCE";
	99	}
	100	}
	101	} elsif ($opt_K) {
	102	$self->{"audiofile"}="AudioBook/test/audio.wav";
	103	$self->{"textfile"}="AudioBook/test/text-simple.txt";
	104	$self->{"voxforgeDict"}="AudioBook/test/VoxForgeDict";
	105	$self->{"tarSuffix"}=_random_characters(3);
	106	$self->{"username"}="test";
	107	print "test using the following files:\n";
	108	print "\t" . $self->{"audiofile"} . "\n";
	109	print "\t" . $self->{"textfile"} . "\n";
	110	print "\t" . $self->{"voxforgeDict"} . "\n";
	111	} elsif ($opt_h) {
	112	print "\nVoxForge Audio Segmentation Script Parameters\n";
	113	print "=============================================\n";
	114	print "-a\t* audio file name\n";
	115	print "-d\t* pronunication dictionary\n";
	116	print "-h\tshow help\n";
	117	print "-l\tLICENSE file (default = AudioBook/input_files/LICENCE)\n";
	118	print "-r\tREADME file (default = AudioBook/input_files/README)\n";
	119	print "-t\t* text file name\n";
	120	print "-u\tusername or name you want file stats collected by on VoxForge Metrics \n";
	121	print "\tpage:\t(http://www.voxforge.org/home/downloads/metrics)\n";
	122	print "-K\trun test\n";
	123	print "-T\tunique tar file suffix - also acts a switch to create gzipped/tar file\n";
	124	print "\t(max 3 characters - remainder is truncated)\n";
	125	print "\n\t* required for scripts to run\n";
	126	print "\n";
	127	exit;
44	128	} else {
45		die "can't open -a $audiofile\n";
	129	print "\nVoxForge Audio Segmentation Script\n";
	130	print "==================================\n";
	131	print "parms -a, -t, -d need to be defined, use -h parameter for more information\n\n";
	132	exit;
46	133	}
47		if (-r $opt_t) {
48		$textfile=$opt_t;
	134	print "audiofile:" . $self->{"audiofile"}. "\n";
	135	print "textfile:" . $self->{"textfile"}. "\n";
	136	print "voxforgeDict:" . $self->{"voxforgeDict"} . "\n";
	137	}
	138
	139	sub process {
	140	my ($self)= @_;
	141	my $debug = $self->{'debug'};
	142	my $audiofile = $self->{"audiofile"};
	143	my $textfile = $self->{"textfile"};
	144	my $username = $self->{"username"};
	145	my $tarSuffix = $self->{"tarSuffix"};
	146	my $voxforgeDict = $self->{"voxforgeDict"};
	147	my $tarSuffix = $self->{"tarSuffix"};
	148	my $htk_files = $self->{'htk_files'};
	149
	150	my $textContents = AudioBook::Text->new($textfile);
	151	$textContents->createWLISTFile("AudioBook/interim_files/wlist");
	152
	153	my $dictionary = AudioBook::Dictionary->new($self);
	154	my $missingwordfound = $dictionary->findOutOfVocabularyWords($voxforgeDict,"AudioBook/interim_files/MissingWords");
	155	if ($missingwordfound) {
	156	$dictionary->getPronunciations("AudioBook/interim_files/MissingWords_out"); # uses g2p
	157	$dictionary->updatePronDict();
	158	# need to update dict with missing words
	159
	160	$command = ("HDMan -A -D -T 1 -g $htk_files/global.ded -m -w AudioBook/interim_files/wlist -i -l AudioBook/interim_files/dlog AudioBook/interim_files/dict" . $self->{"voxforgeDict"}); system($command) == 0 or confess "fullrun $command failed: $?";
	161	$command = ("cp AudioBook/interim_files/MissingWords_out AudioBook/output_files/MissingWords"); print "cmd:$command\n" if $debug; system($command);
49	162	} else {
50		die "can't open -t $textfile\n";
	163	open(MISSINGWORDSOUT,">AudioBook/output_files/MissingWords") or confess ("cannot open AudioBook/output_files/MissingWords file");
	164	print MISSINGWORDSOUT "no missing words\n";
	165	close MISSINGWORDSOUT
	166	}
	167	$command = ("cp AudioBook/interim_files/dict AudioBook/output_files"); print "cmd:$command\n" if $debug; system($command);
	168	my $audio = AudioBook::Audio->new($self);
	169	$audio->segment($audiofile,$textContents);
	170	if (defined($tarSuffix)){
	171	_createTarFile($self);
51	172	}
52		if (-r $opt_d) {
53		$voxforgeDict=$opt_d;
54		} else {
55		die "can't open -d $voxforgeDict\n";
56		}
57		###
58		if (defined($opt_T)) {
59		if ($opt_x) {
60		$tarSuffix=substr($opt_x,3); # only use 1st 3 characters.
61		}else {
62		$tarSuffix=random_characters(3);
63		}
64
65		if ($opt_r) {
66		if (-r $opt_r) {
67		$README=$opt_r;
68		} else {
69		die "can't open -r $README\n";
70		}
71		} else {
72		$README="AudioBook/input_files/README";
73		}
74		if ($opt_l) {
75		if (-r $opt_l) {
76		$LICENCE=$opt_l;
77		} else {
78		die "can't open -l $LICENCE\n";
79		}
80		} else {
81		$LICENCE="AudioBook/input_files/LICENCE";
82		}
83		}
84		} elsif ($opt_K) {
85		$audiofile="AudioBook/test/audio.wav";
86		$textfile= "AudioBook/test/text-simple.txt";
87		$voxforgeDict="AudioBook/test/VoxForgeDict";
88		$tarSuffix=random_characters(3);
89		$username="test";
90		print "test using the following files:\n\t$audiofile\n\t$textfile\n\t$voxforgeDict\n";
91		} elsif ($opt_h) {
92		print "\nVoxForge Audio Segmentation Script Parameters\n";
93		print "=============================================\n";
94		print "-a\t* audio file name\n";
95		print "-d\t* pronunication dictionary\n";
96		print "-h\tshow help\n";
97		print "-l\tLICENSE file (default = AudioBook/input_files/LICENCE)\n";
98		print "-r\tREADME file (default = AudioBook/input_files/README)\n";
99		print "-t\t* text file name\n";
100		print "-u\tusername or name you want file stats collected by on VoxForge Metrics \n";
101		print "\tpage:\t(http://www.voxforge.org/home/downloads/metrics)\n";
102		print "-K\trun test\n";
103		print "-T\tunique tar file suffix - also acts a switch to create gzipped/tar file\n";
104		print "\t(max 3 characters - remainder is truncated)\n";
105		print "\n\t* required for scripts to run\n";
106		print "\n";
107		exit;
108		} else {
109		print "\nVoxForge Audio Segmentation Script\n";
110		print "==================================\n";
111		print "parms -a, -t, -d need to be defined, use -h parameter for more information\n\n";
112		exit;
113		}
114		print "audiofile:$audiofile\n";
115		print "testfile:$textfile\n";
116		print "voxforgeDict:$voxforgeDict\n";
117		####################################################################
118		### Class Variables
119		####################################################################
120		my $command;
121		my %parms;
122		$parms{'debug'} = 0;
123		$parms{'g2p_model'} = "AudioBook/input_files/g2p/models/model-5";
124		$parms{'htk_files'} = "AudioBook/input_files/htk";
125
126		####################################################################
127		### Main
128		####################################################################
129		my $debug = $parms{'debug'};
130		my $textContents = AudioBook::Text->new(\%parms,$textfile);
131		$textContents->createWLISTFile("AudioBook/interim_files/wlist");
132		my $dictionary = AudioBook::Dictionary->new(\%parms,$voxforgeDict);
133		my $missingwordfound = $dictionary->findOutOfVocabularyWords("AudioBook/interim_files/MissingWords");
134		if ($missingwordfound) {
135		$dictionary->getPronunciations("AudioBook/interim_files/MissingWords_out"); # uses g2p
136		$dictionary->updatePronDict();
137		# need to update dict with missing words
138		my $htk_files = $parms{'htk_files'};
139		$command = ("HDMan -A -D -T 1 -g $htk_files/global.ded -m -w AudioBook/interim_files/wlist -i -l AudioBook/interim_files/dlog AudioBook/interim_files/dict $voxforgeDict"); system($command) == 0 or confess "fullrun $command failed: $?";
140		$command = ("cp AudioBook/interim_files/MissingWords_out AudioBook/output_files/MissingWords"); print "cmd:$command\n" if $debug; system($command);
141		} else {
142		open(MISSINGWORDSOUT,">AudioBook/output_files/MissingWords") or confess ("cannot open AudioBook/output_files/MissingWords file");
143		print MISSINGWORDSOUT "no missing words\n";
144		close MISSINGWORDSOUT
145		}
146		$command = ("cp AudioBook/interim_files/dict AudioBook/output_files"); print "cmd:$command\n" if $debug; system($command);
147		my $audio = AudioBook::Audio->new(\%parms,$audiofile,$textContents);
148		$audio->segment();
149		if (defined($tarSuffix)){
150		my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
151		$year += 1900;
152		$mon = sprintf("%02d", $mon);
153		$mday = sprintf("%02d", $mday);
154		print "date:$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst\n";
155		print "creating qzipped tar file:$username$\-$year$mon$mday\-$tarSuffix\.tgz \n";
156		$command = ("tar -zcvf $username$\-$year$mon$mday\-$tarSuffix\.tgz AudioBook/output_files --exclude \"\.svn\" "); print "cmd:$command\n" if $debug; system($command);
157		print "please submit your tar file to: www.voxforge.org\n";
158		}
159		print "completed!\n";
160
161		##########################################################
162		# Subroutines
163		###########################################################
164		sub random_characters {
	173	}
	174
	175	sub _createTarFile {
	176	my ($self)= @_;
	177	my $debug = $self->{'debug'};
	178	my $username = $self->{"username"};
	179	my $tarSuffix = $self->{"tarSuffix"};
	180	my $tarSuffix = $self->{"tarSuffix"};
	181
	182	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
	183	$year += 1900;
	184	$mon = sprintf("%02d", $mon);
	185	$mday = sprintf("%02d", $mday);
	186	print "creating gzipped tar file:$username\-$year$mon$mday\-$tarSuffix\.tgz \n";
	187	if ($debug) {
	188	$command = ("tar -zcvf $username\-$year$mon$mday\-$tarSuffix\.tgz AudioBook/output_files --exclude \"\.svn\" "); print "cmd:$command\n" if $debug; system($command);
	189	} else {
	190	$command = ("tar -zcf $username\-$year$mon$mday\-$tarSuffix\.tgz AudioBook/output_files --exclude \"\.svn\" "); print "cmd:$command\n" if $debug; system($command);
	191	}
	192	print "please submit your tar file to: www.voxforge.org\n";
	193	}
	194
	195	sub _random_characters {
165	196	my ($length) = @_;
166	197	my @chars=('a'..'z');

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

r2575	r2576
51	51	####################################################################
52	52	sub new {
53		my ($class,$~~parms,$audiofile,$textContents~~) = @_;
54		~~print "Audio\.pm:audiofile:$audiofile\n"~~;
	53	my ($class,$super) = @_;
	54	my %self;
55	55	$command = ("rm -f AudioBook/output_files/wav/*.wav"); print "$command\n"; system($command) == 0 or confess "Audio.pm $command failed: $?";
56
57		~~my %self;~~
58		~~$self{"parms"} = $parms;~~
59	56	$self{"process_audio"} = 1;
60		$self{"filename"} = $audiofile;
61		$self{"filename_nopath"} = basename($audiofile);
62		$self{"filename_nosuffix"} = fileparse($audiofile, "wav");
63		$self{"filename_nosuffix"} =~ s/\.//;
64		$self{"samplerate"} = _getSampleRate(\%self);
65
66		$self{"textContents"} = $textContents;
67		_forceAlign(\%self);
68
69		$self{"aligned_words"} = _processHViteOutput(\%self);
	57	$self{'htk_files'} = $super->{'htk_files'};
	58	$self{'g2p_model'} = $super->{'g2p_model'};
	59
70	60	bless(\%self,$class);
71	61	return \%self;
…	…
76	66	sub _getSampleRate { # private
77	67	my ($self) = @_;
78		my $debug = $self->{"~~parms"}->{"~~debug"};
	68	my $debug = $self->{"debug"};
79	69	my $wavfilename = $self->{"filename"};
80	70
…	…
87	77	sub _forceAlign { # private
88	78	my ($self) = @_;
89		my $debug = $self->{"~~parms"}->{"debug"};~~
	79	my $debug = $self->{"debug"};
90	80	my $filename = $self->{"filename"};
91		my $htk_files = $self->{'~~parms'}->{'~~htk_files'};
	81	my $htk_files = $self->{'htk_files'};
92	82	my $textContents = $self->{"textContents"};
93	83
…	…
104	94	sub _processHViteOutput { # private
105	95	my ($self) = @_;
106		my $debug = $self->{"~~parms"}->{"debug"};~~
	96	my $debug = $self->{"debug"};
107	97
108	98	open(ALIGNED, "<AudioBook/interim_files/aligned.out") or confess ("can\'t open AudioBook/interim_files/aligned.out file for reading");
…	…
143	133
144	134	sub segment { # public
145		my ($self) = @_;
146		my $debug = $self->{"parms"}->{"debug"};
147		my $filename = $self->{"filename"};
148		my $filename_nosuffix = $self->{"filename_nosuffix"};
149		my $filename_nopath = $self->{"filename_nopath"};
150		my $aligned_words = $self->{"aligned_words"};
151
	135	my ($self,$filename,$textContents) = @_;
	136	my $debug = $self->{"debug"};
	137
	138	my $filename_nopath = basename($filename);
	139	my $filename_nosuffix = fileparse($filename, "wav");
	140	$filename_nosuffix =~ s/\.//;
	141	$self->{"filename"} = $filename;
	142	$self->{"filename_nopath"} = $filename_nopath;
	143	$self->{"filename_nosuffix"} = $filename_nosuffix;
	144	$self->{"textContents"} = $textContents;
	145
	146	my $samplerate = _getSampleRate($self);
	147	$self->{"samplerate"} = $samplerate;
	148
	149	_forceAlign($self);
	150	my $aligned_words= _processHViteOutput($self);
	151	$self->{"aligned_words"} = $aligned_words;
	152
152	153	print "### segment::$filename #################################################################\n";
153	154	# copy to "interim_files"" directory for processing; also converts to 16 bits per sample (-w=16-bits) so it can be processed by HVite
…	…
210	211	sub _sentence_test { # private
211	212	my ($self, $where, $increment,$aligned_words, $fileid, $sentence_start, $sentence_end) = @_;
212		my $debug = $self->{"~~parms"}->{"debug"};~~
	213	my $debug = $self->{"debug"};
213	214	my $filename_nosuffix = $self->{"filename_nosuffix"};
214	215
…	…
272	273	sub _calculateStats { # Calculate min and max sentence
273	274	my ($self,$sentence_start,$sentence_end,$increment,$filename_nosuffix,$padded_fileid ) = @_;
274		my $debug = $self->{"~~parms"}->{"debug"};~~
	275	my $debug = $self->{"debug"};
275	276
276	277	if ($debug) {
…	…
297	298	sub _last_sentence { # private
298	299	my ($self, $aligned_words, $fileid, $sentence_start, $sentence_end) = @_;
299		my $debug = $self->{"~~parms"}->{"debug"};~~
	300	my $debug = $self->{"debug"};
300	301	my $filename_nosuffix = $self->{"filename_nosuffix"};
301	302	my ($count, $startTime);
…	…
330	331	sub _processAudio { # private
331	332	my ($self, $startTime, $endTime,$padded_fileid) = @_;
332		my $debug = $self->{"~~parms"}->{"debug"};~~
	333	my $debug = $self->{"debug"};
333	334	my $process_audio = $self->{"process_audio"};
334	335	my $samplerate = $self->{"samplerate"};
335	336	my $filename_nosuffix = $self->{"filename_nosuffix"};
336	337	my $filename_nopath = $self->{"filename_nopath"};
337		my $htk_files = $self->{'~~parms'}->{'~~htk_files'};
	338	my $htk_files = $self->{'htk_files'};
338	339
339	340	#print "debug:$debug;process_audio:$process_audio:\n";

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

r2574	r2576
28	28
29	29	my $command;
	30
30	31	####################################################################
31	32	### Constructor
32	33	####################################################################
33	34	sub new {
34		my ($class,$~~parms,$voxforgeDict~~) = @_;
	35	my ($class,$super) = @_;
35	36	my %self;
36		$self{~~"parms"} = $parms~~;
37		$self{~~"voxforgeDict"} = $voxforgeDict~~;
	37	$self{'htk_files'} = $super->{'htk_files'};
	38	$self{'g2p_model'} = $super->{'g2p_model'};
38	39	bless(\%self,$class);
39	40	return \%self;
…	…
43	44	####################################################################
44	45	sub findOutOfVocabularyWords { # public
45		my ($self,$missing_words)= @_;
46		my $debug = $self->{"parms"}->{"debug"};
47		my $voxforgeDict = $self->{"voxforgeDict"};
48		my $htk_files = $self->{'parms'}->{'htk_files'};
	46	my ($self,$voxforgeDict, $missing_words)= @_;
	47	my $debug = $self->{"debug"};
	48	my $htk_files = $self->{'htk_files'};
49	49
	50	$self->{"voxforgeDict"} = $voxforgeDict;
50	51	$self->{"missing_words"} = $missing_words;
51	52
…	…
75	76	close DLOG;
76	77	close MISSINGWORDS;
	78	return $missingwordsfound;
77	79	}
78	80
79	81	sub getPronunciations { # public
80		my ($self,$missing_words_out)= @_;
81		my $debug = $self->{"parms"}->{"debug"};
	82	my ($self,$missing_words_out)= @_;
	83	my $debug = $self->{"debug"};
	84	my $model = $self->{'g2p_model'};
	85	my $missing_words = $self->{"missing_words"};
	86
82	87	$self->{"missing_words_out"} = $missing_words_out;
83		~~my $model = $self->{'parms'}->{'g2p_model'};~~
84		~~my $missing_words = $self->{"missing_words"};~~
85	88
86	89	my @missingwords = `export PYTHONPATH=/usr/local/lib64/python2.4/site-packages &&
…	…
106	109	sub updatePronDict { # public
107	110	my ($self)= @_;
108		my $debug = $self->{"~~parms"}->{"debug"};~~
	111	my $debug = $self->{"debug"};
109	112	my $voxforgeDict = $self->{"voxforgeDict"};
110	113	my $missing_words_out = $self->{"missing_words_out"};
…	…
135	138	}
136	139	close(DICTIONARY);
	140	return 1;
137	141	}
138	142	1;

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

r2574	r2576
31	31	####################################################################
32	32	sub new {
33		my ($class,$~~parms,$inputfilenam~~e) = @_;
	33	my ($class,$textFile) = @_;
34	34	my %self;
35		$self{"parms"} = $parms;
36		$self{"inputfilename"} = $inputfilename;
	35	$self{"inputfilename"} = $textFile;
37	36	_clean(\%self);
38	37	bless(\%self,$class);
…	…
45	44	sub _clean { # private
46	45	my ($self) = @_;
47		my $debug = $self->{"~~parms"}->{"~~debug"};
	46	my $debug = $self->{"debug"};
48	47	my $inputfilename = $self->{"inputfilename"};
49	48
…	…
103	102
104	103	sub processNumbers {
105		~~# !!!!!!~~
106		~~#my ($parms, $words, $number) = @_;~~
107		~~#my $debug = $$parms{"debug"};~~
108	104	my ($self,$words, $number)= @_;
109		my $debug = $self->{"~~parms"}->{"~~debug"};
110		# !!!!!!
	105	my $debug = $self->{"debug"};
	106
111	107	if ($number =~ /^\d+,\d+/) { # comma separated number
112	108	my $wordnum = num2en($number);
…	…
183	179	sub createWLISTFile { # public
184	180	my ($self, $WLISTFile)= @_;
185		my $debug = $self->{"~~parms"}->{"~~debug"};
	181	my $debug = $self->{"debug"};
186	182	my $words = $self->{"contents"};
187	183
…	…
201	197	sub createMLFFile { # public
202	198	my ($self,$wavfilename,$MLFFile)= @_;
203		my $debug = $self->{"~~parms"}->{"~~debug"};
	199	my $debug = $self->{"debug"};
204	200	$self->{"wavfilename"} = $wavfilename;
205	201	print "wavfilename:$wavfilename\n";

Trunk/Scripts/Audio_scripts/AudioSegmentation/AudioBook/output_files/MissingWords

r2575 r2576

1 no missing words

Download in other formats:

©2005-2008 VoxForge