root/Trunk/Scripts/AcousticModel_scripts/HTK/manual_testing/ProcessJuliusOutput1pass.pl

#!/usr/bin/perl
####################################################################
###
### script name : ProcessJuliusOutput1pass.pl
### version: 0.1
### created by: Ken MacLean
### mail: contact@voxforge.org
### Date: 2006.09.26
### Command: perl ./ProcessJuliusOutput1pass.pl
###    
### Copyright (C) 2006 Ken MacLean
###
### This program is free software; you can redistribute it and/or
### modify it under the terms of the GNU General Public License
### as published by the Free Software Foundation; either version 3
### of the License, or (at your option) any later version.
###
### This program is distributed in the hope that it will be useful,
### but WITHOUT ANY WARRANTY; without even the implied warranty of
### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
### GNU General Public License for more details.
###                                                             
####################################################################

use strict;
my ($line, $label, $filein, $fileout, %seen);
my (@line_array, $line_array);
if (@ARGV != 2) {
  print "usage: $0 filein fileout\n\n"; 
  exit (0);
}
# read in command line arguments
($filein, $fileout) = @ARGV;

open (FILEIN,"$filein") || die ("Unable to open $filein for reading");
open (FILEOUT,">$fileout") || die ("Unable to open $fileout for writing");

print (FILEOUT "#!MLF!#\n");
while ($line = <FILEIN>) {
  chomp ($line);
  if ($line =~ /input speechfile: /) {
    $line =~ s/input speechfile: //;
    $line =~ s/\.wav/\.rec/;
    $line =~ s/wav\///;
    print (FILEOUT "\"*\/$line\"\n");
  } elsif ($line =~ /input MFCC file: /) {
    $line =~ s/input MFCC file: //;
    $line =~ s/\.mfc/\.rec/;
    $line =~ s/mfcc\///;
    print (FILEOUT "\"*\/$line\"\n");
  } elsif ($line =~ /pass1_best: /) {
    $line =~ s/pass1_best: //;
    $line =~ s/<s> //;
    $line =~ s/ <\/s>//;
    $line =~ s/ <sp>//;
    @line_array=split(/\s+/, $line);
    foreach $line_array (@line_array) {
      print (FILEOUT "$line_array\n");
    }
    print (FILEOUT "\.\n");
  }
}  
close(FILEIN);
close(FILEOUT);