Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

time quine

by teamster_jr (Curate)
on May 15, 2006 at 15:09 UTC ( #549529=obfuscated: print w/ replies, xml ) Need Help??

based (roughly) on the later of these, here's a quick something i've knocked up as light relief while i'm working on my next serious obfu:
$_='$p=chr(39);$t=reverse"\$_=$p$_$p;\ns!".chr(92)."s!!g;eval";$_="2.; +NN NO82VWiiiiiY2.8iW2/Ve<.8WMdO82WNA-77-A3ii3,ryir,K;F.;o.2O823i`VFBVVn.< +82 .;O82<.;O83d82!";s!.!-32+ord$&!eg;s!.!(++$c%2?$":1)x$&!eg;s!.{10}!push +@_ ,$&!eg;{$q=$t;$z=sprintf"%2d:"x3,(localtime)[2,$|=1,0];sleep$|;my$s;fo +r$ l(0..7){map$s.=s#:##?$"x4:$_[$l+$_*8].$",split//,$z;$s.=$/}$s=~s&1&cho +p$ q&eg;$_=reverse$q;s%.{78}%$&$/%g;print"\ec$s$/$_$/";redo}';s!\s!!g;eva +l
there is a little golfing that could be done, which i might try and update with later.
enjoy
al
p.s. incidentally - does the title rhyme? I'm never sure whether it's pronounced qween or qwine :)

Update: fixed output layout for standard width console (and cut out a line or so)

Comment on time quine
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (5)
As of 2014-12-28 11:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (180 votes), past polls