Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re^4: Refactoring Perl 4 - Replace Temp with Query

by agianni (Hermit)
on Jul 31, 2007 at 12:54 UTC ( [id://629822] : note . print w/replies, xml ) Need Help??


in reply to Re^3: Refactoring Perl 4 - Replace Temp with Query
in thread Refactoring Perl #4 - Replace Temp with Query

Definitely, you had me confused initially, but your humor was appreciated :) I have actually gone back and updated the titles of the root nodes to place number signs before the number in the series and will utilize that convention from here on out.

perl -e 'split//,q{john hurl, pest caretaker}and(map{print @_[$_]}(joi +n(q{},map{sprintf(qq{%010u},$_)}(2**2*307*4993,5*101*641*5261,7*59*79 +*36997,13*17*71*45131,3**2*67*89*167*181))=~/\d{2}/g));'