Speech::Recognizer::ScLite - Object-based wrapper around the sclite tool from the NIST SCTK.

  # gather the correct and hypothesized readings any way you like. 
  # here I assume you have them in two text files that can be parsed
  # successfully by the toy sub read_trans below.
  my (%correct_readings) = read_trans('correct.txt');
  my (%hyp_readings) = read_trans('hypotheses.txt');

  # real work begins here
  use Speech::Recognizer::ScLite;

  # alter the default ('sclite') executable-name or a path to it
  Speech::Recognizer::ScLite->executable( 
				 '/usr/site/bin/SCTK-1-04/sclite-1-04' );

  my ($scorer) = 
    Speech::Recognizer::ScLite->new( 'result_location' => './test_17',
				     id => 'Sex'); 
                                     # that oughtta increase the CPAN hits

  foreach my $line (sort keys %hyp_readings) {
    # construct an object to represent this version
    # construct any sort key you want. Here we assume that we're
    # interested in breaking out the files based on which directory
    # they're in.
    my ($l) = 
      Speech::Recognizer::ScLite::Line->new( 
					 ref => $correct_readings{$line},
					 hyp => hyp_readings{$line},
					 sort_key => getSort($line)
					 );

    $scorer->lines_push($l);

  } # end of looping over the filenames.

  # computes actual ASR performance, given above information
  $scorer->score();

  # dumps a wordy report into the ->result_location;
  #  $scorer->report(); # currently a no-op since score() invokes
  # reporting function within the sclite utility itself




  ################################################################
  # toy subs defined below for the sake of the completeness of the
  # example. 
  sub read_trans {
    my (%transcriptions);
    open (FILE, shift); # or die, of course
    while (<FILE>) {
      chomp;
      my ($trans, $file) = split;
      $transcriptions{$file} = $trans;
    }
    close FILE; # or die, of course
    return %transcriptions;
  }
  # this toy sort routine returns the sex of the speaker as the sort
  # key, rather than the (default) speaker directory.
  sub getSort {
    my ($filename) = shift;
    return ($filename =~ /female/i ? 'Female' : 'Male');
  }

Provides an object-oriented interface to the sclite tool provided in the NIST SCTK, which is available from here:

  http://www.nist.gov/speech/tools/index.htm

It is intended to expose all the basic functionality of the sclite command line and

This is motivated by several reasons:

*

A few other tools exist, but most of them are explicitly designed to work with particular input forms, e.g.:

•   http://www.nist.gov/speech/tests/sdr/sdr99/pages/faq/SRT_FAQ.htm#OVERVIEW
  
  

•   http://communicator.sourceforge.net/sites/MITRE/distributions/GalaxyCommunicator/ contrib/MITRE/tools/docs/log_tools.html 
  
  

*

Managing large numbers of commandline options can be painful.

*

The sclite tool assumes that one particular sort of the data is interesting -- sorting by the "speaker" of the waveform. This is not necessarily the most interesting sort -- and it's certainly not the only interesting sort. This tool provides the ability to sort by whatever sort key you're interested in, not the "speaker".

The sort should be transparent to the user.

*

Parsing text data is not really that hard in Perl, but why should more than one person figure all this out? This will allow other researchers to easily use the sclite tool with results from any format -- they need only solve the problem of extracting the text appropriately.

->new([ attribute => value ]*)

Class method. Creates a new instance of this class. Takes as arguments any number of attribute-value pairs, where attribute is one of the data (see Data access methods below).

->executable()

Gets/sets the location of the executable sclite engine.

->find_id(id)

Returns reference to the object with id == id.

->id_keys()

Returns list of valid ids.

->all()

Returns list of existing instances.

->score_all()

Executes score() on all instances.

->lines_push(Speech::Recognizer::ScLite::Line instance)

Adds a new datum to this ScLite object.

->clear()

Clears list of lines that were added through addLine().

->score()

Does the work of actually scoring the various Line objects and computing the summaries.

Currently, this version shells out in order to execute this command. It would be nice to fix this.

->report()

Places the score report in the directory previously identified by result_location (or its default).

It is required that you call score() before you call report() on a given instance. (This should be obvious to the users.)

NOTE: This function is currently a no-op since early revisions of this code invoke an option to sclite that dumps a report during score().

->result_location()

Gets/sets the directory in which the results are to be put, after score() is called. Note that this target, in the future, will be populated with files after report() is called instead.

->id()

Gets/sets the identifier for this score. Results files use this name as a stem.

• Implement base code, using assumption that compiled executable exists. This includes adding the additional features of sort order.
  
  Still remaining at this phase:
• • Make sure that functions and options of the sclite executable are all visible through the OOP interface.
• Add code to parse the output files, and store the data in Perl-ish data structures, to make it easier to put together reports in alternate formats.
• Rebuild to use the sclite C code directly (through XS).

0.01

Original version; created by h2xs 1.21 with options

  -CAX
	Speech::Recognizer::ScLite

Jeremy Kahn, <kahn@cpan.org>

perl.