full_list.prl

HTK应用程序

#!/usr/local/bin/perl

# This script will generate all possible monophones, biphones 
#	and triphones for cross-word system from monophones list
#
# TL 7/1997
#

if ( $#ARGV != 0 ) {
    die "usage: full_list.prl monophones_list.\n";
}

$datfile = $ARGV[0];
if ( ! -f $datfile ) {
   die "monophones list file $datfile not found. Aborting!\n";
}

open(DATFILE,"<$datfile") or die "Can't open file $datfile\n";
while (<DATFILE>) {
	($Fld1) = split(' ', $_);
	$ph{++$np} = $Fld1;
}

printf (("sil\nsp\n"));
$ph{++$np} = 'sil';
for ($j = 1; $j < $np; $j++) {
	printf "%s\n", $ph{$j};
	for ($i = 1; $i <= $np; $i++) {
		printf "%s-%s\n%s+%s\n", $ph{$i}, $ph{$j}, $ph{$j}, $ph{$i};
		for ($k = 1; $k <= $np; $k++) {
		    printf "%s-%s+%s\n", $ph{$i}, $ph{$j}, $ph{$k};
		}
	}
}

close (DATFILE);