Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

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"; }
output:
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
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.
      Bob9000++

      That did it, many thanks

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (3)
As of 2014-09-19 23:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (151 votes), past polls