No explicit $

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

Okay... it's a homework question, but a good one. How can I re-write this program to use $_ instead of $word, without actually using the magic variable "$_" explicitly ?

    foreach my $word (split /\s+/, $line) {
        $word =~ s/microsoft/monopoly/gi;
        print $word if $word =~ /yes/;
    }
[download]

Thanks!

2002-05-09 Edit by Corion : Added CODE tags

Comment on No explicit $_ ? Download Code

Replies are listed 'Best First'.
(jeffa) Re: No explicit $_ ? by jeffa (Bishop) on May 09, 2002 at 14:19 UTC
`foreach (split /\s+/, $line) { s/microsoft/monopoly/gi; print if /yes/; }` [download] jeffa L-LL-L--L-LL-L--L-LL-L-- -R--R-RR-R--R-RR-R--R-RR B--B--B--B--B--B--B--B-- H---H---H---H---H---H--- (the triplet paradiddle with high-hat)	[reply] [d/l]
Re: No explicit $_ ? by Chady (Priest) on May 09, 2002 at 15:30 UTC
lately, I'm becoming addicted. `print grep { /yes/; } map { s/microsoft/monopoly/gi; } split /\s+/, $line;` [download] He who asks will be a fool for five minutes, but he who doesn't ask will remain a fool for life. Chady \| http://chady.net/	[reply] [d/l]
Re: Re: No explicit $_ ? by hopes (Friar) on May 09, 2002 at 15:46 UTC
One more... `print grep{/yes/&&s/microsoft/monopoly/gi}(split /\s+/, $line);` [download] Hopes `$_=$,=q,\,@4O,,s,^$,$\,,s,s,^,b9,s, $_^=q,$\^-]!,,print` [download]	[reply] [d/l] [select]
Re: No explicit $_ ? by hotshot (Prior) on May 09, 2002 at 14:22 UTC
here's your answer: `for (split(/\s+/, $line)) { s/microsoft/monopoly/gi; print if /yes/; }` [download] and please format your question befor submitting it. Thanks. Hotshot	[reply] [d/l]