Perl: the Markov chain saw | |
PerlMonks |
Re: Can you help me with these one-liners?by BrowserUk (Patriarch) |
on Apr 22, 2014 at 15:20 UTC ( [id://1083190]=note: print w/replies, xml ) | Need Help?? |
Use -n to replace the while loop:
Do away with the unnecessary explicit references to $_:
Recognise that every line is being printed, so -p can replace the explicit print statements:
Rearrange to do away with the empty if body:
UPDATE: a final step:
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
In Section
Seekers of Perl Wisdom
|
|