#!/usr/bin/env perl
use
strict;
use
warnings;
use
Lingua::Word::Parser;
my
$p
= Lingua::Word::Parser->new(
file
=>
'eg/lexicon.dat'
,
word
=>
shift
||
'abioticaly'
,
);
#warn Dumper $p->{lex};
# Find the known word-part positions.
my
(
$known
,
$masks
) =
$p
->knowns;
#warn Dumper $known;
#warn Dumper $masks;
my
$combos
=
$p
->power;
#warn Dumper $combos;
my
$score
=
$p
->score_parts();
warn
Dumper
$score
;