Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

It's been a long time

by chargrill (Parson)
on Aug 22, 2007 at 02:16 UTC ( #634228=obfuscated: print w/ replies, xml ) Need Help??

I haven't done one of these in a while, but got the idea for this while I was tracking down some misbehaving code that I had to replace - having seen this presentation at YAPC::NA helped.

Apologies for the non-standard form.

*{" |$ / |$ /|___|"}=sub{ust};*{qq%.| $/ |--.$/ | |%}=sub{q@a +cker,@}; *{qq* __.$ / --|$ / |__|*}=sub{q.nother.};*{qq#.---$/ |__)$/ | #}=s +ub{erl}; print $ _ ,$ _ -> (), $ / for grep {m { ^[ .|] }x } sort keys % { +* :: };

--chargrill
s**lil*; $*=join'',sort split q**; s;.*;grr; &&s+(.(.)).+$2$1+; $; = qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)

Comment on It's been a long time
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://634228]
Approved by liverpole
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (6)
As of 2014-10-24 21:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (138 votes), past polls