Re: using a string or file in qw

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!

Comment on Re: using a string or file in qw Download Code
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]