http://www.perlmonks.org?node_id=233724
User since: Feb 08, 2003 at 16:03 UTC (17 years ago)
Last here: Jul 30, 2009 at 18:32 UTC (10 years ago)
Experience: 1472
Level: Hermit (10)
Writeups: 140
Location:The Netherlands
User's localtime: Jan 26, 2020 at 07:35 CET
Scratchpad: View
For this user:Search nodes

How's your Perl?
How's your Perl? (II)

<hardburn> blast it, xmath, I needed that last shread of sanity!

hardburn wonders at the sudden drop in productivity in Perl programmers all over the world thanks to this little stunt.


perl -e'connect$|=socket(1,2,1,$/=select+1),pack sa14,2,"\nDH\$\203\273";print"d ! @ARGV\nq\n";print$/ +<1>=~/".+?^(.*?)^\s*\./sm' perl