in reply to How to kill perl?
My site has a nice one with reverse and sort perlbugs
perl -e '@a=(1..5); map {@a=() if $x++>2, $_} @a'
Can also be written as:
perl -e '@a=(1..5); map {@a=() if $x++, $_} @a'
Evan Carroll
www.EvanCarroll.com
perl -e '@a=(1..5); map {@a=() if $x++>2, $_} @a'
Can also be written as:
perl -e '@a=(1..5); map {@a=() if $x++, $_} @a'
Evan Carroll
www.EvanCarroll.com
In Section
Meditations