VoxForge
My perl script is (mkclscript)
enter code here if ( $#ARGV != 2 ) { die "usage: mkclscript.prl command threshold monophone_list\n"; } $command = $ARGV[0]; $threshold = $ARGV[1]; $hmmlist=$ARGV[2]; if (! -f $hmmlist) { die "mkclscript: monophone HMM list $hmmlist not found\n"; } open(HMMLIST,"<$hmmlist") or die "Can't open file $hmmlist\n"; while(<HMMLIST>) { chop;chop; print "$command $threshold \"ST_$_"."_2_\" {(\"$_\",\"*-$_\+*\",\"$_\+*\",\"*-$_\").state[2]}\n"; } open(HMMLIST,"<$hmmlist") or die "Can't open file $hmmlist\n"; while(<HMMLIST>) { chop;chop; print "$command $threshold \"ST_$_"."_3_\" {(\"$_\",\"*-$_\+*\",\"$_\+*\",\"*-$_\").state[3]}\n"; } open(HMMLIST,"<$hmmlist") or die "Can't open file $hmmlist\n"; while(<HMMLIST>) { chop;chop; print "$command $threshold \"ST_$_"."_4_\" {(\"$_\",\"*-$_\+*\",\"$_\+*\",\"*-$_\").state[4]}\n"; }
and the lines i get from tree.hed first four lines for state 2 is
enter code here
TB 350 "ST_a_2_" {("a","*-a+*","a+*","*-a").state[2]} TB 350 "ST__2_" {("","*-+*","+*","*-").state[2]} TB 350 "ST_a_2_" {("a","*-a+*","a+*","*-a").state[2]} TB 350 "ST__2_" {("","*-+*","+*","*-").state[2]}
What you want me to change in order to make it run...!!!!!!!