using a string or file in qw

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Dear Perlers I have a question about using a variable or a file in perl. my siplified code is as below, I have a string and want to remove the stopwords but it does not works since qw works in different way ...any clue?

#!/usr/bin/perl

use strict;

use Lingua::StopWords qw( getStopWords );

my $stopwords = getStopWords('en');

my $text='I want to remove stop words';
#my @words = qw ($text);
print join ' ', grep { !$stopwords->{$_} } $words;
[download]

or even if there is any option for this, I would appreciate to know. thanks in advance.

Comment on using a string or file in qw Download Code

Replies are listed 'Best First'.
Re: using a string or file in qw by ikegami (Patriarch) on Jan 22, 2009 at 19:10 UTC
`qw( a b c )` [download] is equivalent to `( split(' ', ' a b c ') )` [download] so what you want is `my @words = split(' ', $text);` [download]	[reply] [d/l] [select]
Re: using a string or file in qw by jasonk (Parson) on Jan 22, 2009 at 18:47 UTC
`my @words = split( ' ', $words ); print join ' ', grep { ! $stopwords->{ $_ } } @words;` [download] Then I suggest you read a good book, such as "Learning Perl" www.jasonkohles.com We're not surrounded, we're in a target-rich environment!	[reply] [d/l]
Re^2: using a string or file in qw by Bloodnok (Vicar) on Jan 22, 2009 at 19:52 UTC
... or even: `. . print join ' ', grep ! $stopwords->{ $_ }, split( ' ', $words ); . .` [download] - assuming `@words` isn't required later... A user level that continues to overstate my experience :-))	[reply] [d/l] [select]
Re: using a string or file in qw by holli (Abbot) on Jan 22, 2009 at 18:46 UTC
~~What's wrong with `my @words = ($text);`?~~ Sorry, misread. holli When you're up to your ass in alligators, it's difficult to remember that your original purpose was to drain the swamp.	[reply] [d/l]


Think about Loose Coupling
	PerlMonks