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 ( [id://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 meditating upon the Monastery: (1)
As of 2024-04-16 21:36 GMT
Find Nodes?
    Voting Booth?

    No recent polls found