Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Text::ExtractWords minwordlen and maxwordlen

by wfsp (Abbot)
on Aug 11, 2005 at 19:25 UTC ( #483093=perlquestion: print w/ replies, xml ) Need Help??
wfsp has asked for the wisdom of the Perl Monks concerning the following question:

The following is based on the example from the docs:

#!/usr/bin/perl use strict; use warnings; use Text::ExtractWords qw(words_count words_list); my ($str, $str_test); $str = q|test test the an an words_count function|; $str_test = $str; my %hash = (); my %config = ( minwordlen => 3, maxwordlen => 7, locale => "en_US.ISO_8859-1", ); words_count(\%hash, $str_test, \%config); for my $key (sort keys %hash){ print "$key -> $hash{$key}\n"; } $str_test = $str; print "\n"; my @list = (); words_list(\@list, $str_test, \%config); for my $element (@list){ print "$element\n"; }
an -> 2 function -> 1 test -> 2 the -> 1 words_count -> 1 test test the an an words_count function

I expected words that had a min length of 3 and a max length of 7 or is it just me :-)

WinXP, Activestate 5.8, T::WE v0.07

Comment on Text::ExtractWords minwordlen and maxwordlen
Select or Download Code
Replies are listed 'Best First'.
Re: Text::ExtractWords minwordlen and maxwordlen
by Bob9000 (Scribe) on Aug 11, 2005 at 19:46 UTC
    After a quick look at ExtractWords.xs, it appears the documentation is wrong. %config should use the keys minlen and maxlen instead of minwordlen and maxwordlen.

      That did it, many thanks

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://483093]
Approved by kwaping
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (5)
As of 2015-11-29 13:04 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (750 votes), past polls