Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister

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

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
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://483093]
Approved by kwaping
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others chanting in the Monastery: (4)
As of 2023-12-08 01:51 GMT
Find Nodes?
    Voting Booth?
    What's your preferred 'use VERSION' for new CPAN modules in 2023?

    Results (34 votes). Check out past polls.