wfsp has asked for the wisdom of the Perl Monks concerning the following question:
winXP home, AS 5.8.7, T::EW v0.07
I've found this module very useful but have come across what appears to be an inconsistancy. Can anyone confirm my output or identify what I'm doing wrong?
#!/usr/bin/perl use strict; use warnings; use Text::ExtractWords qw(words_count); my @strings = ( q|one two 'three'|, q|yes I am 'me'|, ); my %config = ( minlen => 3, maxlen => 32, locale => "en_US.ISO_8859-1", ); for my $str (@strings){ print "$str\n"; my %hash; words_count(\%hash, $str, \%config); for my $key (sort keys %hash){ print "$key -> $hash{$key}\n"; } print '-' x 10, "\n"; } __DATA__ ---------- Capture Output ---------- > "C:\Perl\bin\perl.exe" text_extractwords.pl one two 'three' one -> 1 three -> 1 two -> 1 ---------- yes I am 'me' yesiam'me -> 1 ---------- > Terminated with exit code 0.
Thanks in advance
John
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Unpredictable output form Text::ExtractWords
by Roger (Parson) on Aug 16, 2005 at 14:44 UTC | |
Re: Unpredictable output form Text::ExtractWords
by gjb (Vicar) on Aug 16, 2005 at 12:40 UTC | |
Re: Unpredictable output form Text::ExtractWords
by socketdave (Curate) on Aug 16, 2005 at 13:51 UTC | |
Re: Unpredictable output form Text::ExtractWords
by epoptai (Curate) on Aug 16, 2005 at 15:37 UTC | |
Re: Unpredictable output form Text::ExtractWords
by extremely (Priest) on Aug 16, 2005 at 17:14 UTC |
Back to
Seekers of Perl Wisdom