in reply to using a string or file in qw
my @words = split( ' ', $words ); print join ' ', grep { ! $stopwords->{ $_ } } @words;
Then I suggest you read a good book, such as "Learning Perl"
In Section
Seekers of Perl Wisdom
in reply to using a string or file in qw
my @words = split( ' ', $words ); print join ' ', grep { ! $stopwords->{ $_ } } @words;
Then I suggest you read a good book, such as "Learning Perl"