Help for this page

Select Code to Download


  1. or download this
    use strict;
use Data::Dumper;
...
   my $outline = qq|FOUND @{$ref->{$_}->{WORDSFOUND}} in $_\t| . $ref-
+>{$_}->{words} . qq|\n|;
   print $outline if ($ref->{$_}->{confidence} >= $minMatches);
}
  2. or download this
    perl useoo.pl
MINIMUM NUMBER OF MATCHES PLEASE: 1
...
perl useoo.pl
MINIMUM NUMBER OF MATCHES PLEASE: 2
FOUND Bird SnaKe in MS_3    dog, cat, fish, bird, snake, orange