/usr/share/doc/libio-prompt-perl/examples/lingua.pl is in libio-prompt-perl 0.997004-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 | #!/usr/bin/perl
# Typical example of using the module in a presentation...
use Lingua::LinkParser;
{
local $| = 1;
print "loading analyser...";
$parser = new Lingua::LinkParser;
print "done\n";
}
use IO::Prompt;
$parser->opts(
'verbosity' => 0,
'max_sentence_length' => 70,
'panic_mode' => 1,
'max_parse_time' => 30,
'linkage_limit' => 1000,
'short_length' => 10,
'disjunct_cost' => 2,
'min_null_count' => 0,
'max_null_count' => 0,
);
while (prompt "> ", -clearfirst) {
my $sentence = $parser->create_sentence($_);
if ($sentence->num_linkages == 0) {
$parser->opts(
'min_null_count' => 1,
'max_null_count' => $sentence->length
);
$sentence = $parser->create_sentence($_);
if ($sentence->num_linkages == 0) {
$parser->opts(
'disjunct_cost' => 3,
'min_null_count' => 1,
'max_null_count' => 30,
'max_parse_time' => 60,
'islands_ok' => 1,
'short_length' => 6,
'all_short_connectors' => 1,
'linkage_limit' => 100
);
my $sentence = $parser->create_sentence($_);
}
}
for $i (1 .. $sentence->num_linkages) {
$linkage = $sentence->linkage($i);
$linkage->compute_union;
$sublinkage = $linkage->sublinkage($linkage->num_sublinkages);
print $parser->get_diagram($sublinkage), "\n";
}
}
__DATA__
__PROMPT__
The issue of gene patents is a vexing one
Patents on genes are a vexed issue
Gene patenting is an issue that vexes
The vexacious issue is patented genes
Patentable genes vex the issue
Time flies like an arrow
|