Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

When JAPH retires (v 2.0)

by Elliott (Pilgrim)
on Oct 12, 2001 at 22:39 UTC ( [id://118546]=obfuscated: print w/replies, xml ) Need Help??

I had to rewrite "When a Perl Hacker Retires" to make it platform-independent.... and I got a bit carried away!

I hope you'll agree this is a dramatic improvement. Hey - it actually tells the time (ish).

#!/usr/bin/perl -w use strict $i=$l=0; $w9=(localtime)[2];if($w9>11){$w9 -=12}$j6=(localtime)[1];$hh=int(( (($w9*1* 12 *1*10/2) )+$j6) / (((90) ))+0.5 ) ;if($ hh>7) { $hh=0 };$mh = (38/( 17-6+ 9 * 3 ))*1* int(( ( $j6)/ (7.5) ) +0.5) ;if(1* $ mh>7){ $mh=0} ;for(; $i<93+1* 6 *1+1333+ 1;$i++){$t5[$i]=chr(32)}for($j=54 ;$j<1433;$j+=53){$t5[$j]="\n"}&r; @fc =(663,25,201,311,528,688,847, 1004 ,1108,1211,1313,1405,1344,1231,1067 ,798,638,480,323,168,69);@cf=(6,15,26 ,22,16,13,2,22,11,12,20,17,12,20,1,18,3 ,0,4,12,20);for(;$l<21;$l++){$t5[$fc[$l]] =$cloak[$cf[$l]]}@m=qw(133 637 53 | 134 \\ 132 / 299 637 52 / 246 _ 300 | 664 682 1 - 682 > 682 > 717 1130 54 \\ 1148 - 1096 | 716 1220 53 | 1192 \\ 1194 / 715 1167 52 / 1130 | 1132 _ 645 663 1 - 644 < 644 < 285 610 54 \\ 284 | 232 _);@h=qw(345 637 53 | 346 \\ 344 / 455 637 52 / 402 _ 456 | 664 674 1 - 674 > 674 > 717 971 54 \\ 986 - 934 | 716 1061 53 | 1033 \\ 1035 / 715 952 52 / 922 | 924 _ 653 663 1 - 652 < 652 < 447 610 54 \\ 446 | 394 _); sub r{$t5[88]=chr(117);@cloak=split( //,"cloak");@legend=split(//, #### #### "### When JAPH retires ###" #### (by Elliott) #### #### #### );push@cloak,@legend;}for($m= $m[$mh*8+0];$m<$m[$mh*8+1];$m+=$m[$mh*8+2 ]){$t5[$m]=$m[$mh*8+3]}$t5[$m[$mh*8+4]]=$ m[$mh*8+5];$t5[$m[$mh*8+6]]=$m[$mh*8+7] ;for($h=$h[$hh*8+0];$h<$h[$hh*8+1];$h+= $h[$hh*8+2]){$t5[$h]=$h[$hh*8+3]}$t5[$h [$hh*8+4]]=$h[$hh*8+5];$t5[$h[$hh*8+6]]=$ h[$hh*8+7 ];foreach (@t5){ print}

Replies are listed 'Best First'.
Re: When JAPH retires (v 2.0)
by blakem (Monsignor) on Oct 12, 2001 at 22:46 UTC
    It looks like you have a slight bug around line 15.... &amp; should be simply &
    After making that small change, it worked great on my unix box. Well done.

    -Blake

      Oh rats! That must have been put in by the Monastery code parser.

      I'll see if I can edit it.

      Later: All fixed.
      Thanks for pointing it out. I am baffled why it did that, yet let me edit it out.
        very nice
Re: When JAPH retires (v 2.0)
by Schmunzie (Beadle) on Apr 05, 2015 at 10:43 UTC
    So pleased to have found this again.

    I don't know why I included "use Strict" - it definitely is not wanted. I'd edit it if I could find a way back into my old account.

      That use of use strict with arguments appears in at least one other obfu. It used to be a valid no-op in older perls, but it errors out since perl 5.8.1.

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others romping around the Monastery: (4)
As of 2024-03-28 14:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found