view release on metacpan or  search on metacpan

tt-wd-errors.perl  view on Meta::CPAN

##----------------------------------------------------------------------
## MAIN
##----------------------------------------------------------------------
push(@ARGV,'-') if (!@ARGV);

##-- vars: token frequency
our %tc = qw();  ##-- %tc     = ("$tag $class" => \%data, ...) ##-- errors only
                 ##   + %data = (freq=>$tc_freq, words=>{$w=>$w_freq, ...})
our $N      = 0; ##-- $N  = $total_freq;
our $Nerr   = 0; ##-- $Nerr = $error_freq;                   ##-- == sum($tcdata{$_}{freq})
our $Nempty = 0; ##-- $Nempty = $total_empty_class_freq


##-- load mooteval output
foreach $infile (@ARGV) {
  our $ttin = Lingua::TT::IO->fromFile($infile)
    or die("$0: open failed for '$infile': $!");
  our $infh = $ttin->{fh};
  while (<$infh>) {
    chomp;