Navigation

Dictionary.pm

Timestamp:

05/29/08 23:07:04 (7 months ago)

Author:

kmaclean

Message:

AudioSegmentation scripts - Sequitor G2P pronunciation alternatives validation to Audio using HVite Forced Alignment - snapshot

Files:

r2597	r2598
175	175	=head2 validateAlternatePronunciations
176	176
177		Todo: This might need to go in a new Prompts class
	177	Add alternate pronunications generated by Sequitor G2P to original dict file, then perform forced alingment to see which
	178	pronunciation that HVite picks, based on the phonemes it recognizes from the audio.
	179
	180	Also create a folder containing the missing words and a prompt file containing with only those prompts that contain the missing words,
	181	for manual confirmation of pronunciations.
178	182
179	183	=cut
…	…
219	223	my $altDict = $self->{"altDict"};
220	224	my ($aligned_out, $log) = AudioBook::Audio::forceAlign($self, $promptID, $promptLine, $altDict);
221		open(ALIGNED_OUT,"$aligned_out") or confess ("cannot open $~~prompts~~ file");
222		my ~~@phoneList~~;
	225	open(ALIGNED_OUT,"$aligned_out") or confess ("cannot open $aligned_out file");
	226	my (@phoneList,$gatherPhones);
223	227	while (my $line = <ALIGNED_OUT>) {
224	228	my @line = split(/\s/, $line);
…	…
231	235	}
232	236	}
233		if ~~$gatherPhones~~ {
	237	if ($gatherPhones) {
234	238	push (@phoneList,$phone);
235	239	}
…	…
239	243
240	244	=head2 _getMissingWordList
	245
	246	read missing word list into an array for processing
241	247
242	248	=cut