| | 36 | |
|---|
| | 37 | =head2 createMLFFile |
|---|
| | 38 | |
|---|
| | 39 | creates an MLF (HTK required "Multi-Label File") file for a prompt. |
|---|
| | 40 | |
|---|
| | 41 | =cut |
|---|
| | 42 | |
|---|
| | 43 | sub createPromptMLF { # public |
|---|
| | 44 | my ($class,$fileID,$promptLine,$segmentMlf)= @_; |
|---|
| | 45 | open(MLF, ">$segmentMlf") or confess ("cannot open $segmentMlf for output"); |
|---|
| | 46 | print MLF "#!MLF!#\n"; # |
|---|
| | 47 | print MLF "\"AudioBook/interim_files/missingWordsFolder/$fileID.lab\"\n"; |
|---|
| | 48 | foreach my $word (@$promptLine) { |
|---|
| | 49 | print MLF "$word\n"; |
|---|
| | 50 | } |
|---|
| | 51 | print MLF "\.\n"; |
|---|
| | 52 | } |
|---|
| | 53 | |
|---|
| | 54 | =head1 INSTANCE METHODS |
|---|
