Help for this page

Select Code to Download


  1. or download this
    use Tree::Trie;
my $trie = new Tree::Trie;
...
print "List context: @sent\n";
my $data = $trie->lookup_data('word');
print "Scalar context: $data\n";
  2. or download this
    List context: word data
Scalar context: data
  3. or download this
    my ($data) = $trie->lookup_data($fields->[0]);