Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
clear.pl	280 B	-rwxr-xr-x
cmdline.pl	233 B	-rwxr-xr-x
data.pl	1.3 KB	-rwxr-xr-x
default.pl	427 B	-rwxr-xr-x
hand.pl	332 B	-rwxr-xr-x
interactive.pl	115 B	-rwxr-xr-x
lingua.pl	1.81 KB	-rwxr-xr-x
menu.pl	806 B	-rw-r--r--
nonl.pl	202 B	-rwxr-xr-x
num.pl	253 B	-rwxr-xr-x
passwd.pl	516 B	-rwxr-xr-x
record.pl	734 B	-rwxr-xr-x
require.pl	688 B	-rwxr-xr-x
to.pl	544 B	-rwxr-xr-x
tty.pl	473 B	-rwxr-xr-x
underscore.pl	688 B	-rwxr-xr-x
while_until.pl	439 B	-rwxr-xr-x
yesno.pl	594 B	-rwxr-xr-x

Code Editor : lingua.pl

#!/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

${this.title}

Code Editor : lingua.pl