| User since: |
Feb 08, 2003 at 16:03 UTC
|
| Last here: |
Jul 30, 2009 at 18:32 UTC
(4 years ago) |
| Experience: |
1469
|
| Level: |
Hermit (10)
|
| Writeups: |
140
|
| Location: | The Netherlands |
| User's localtime: |
Jun 20, 2013 at 06:53 CEST
|
| Scratchpad: |
View
|
|
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
|
