Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Comment on

( #3333=superdoc: print w/ replies, xml ) Need Help??

This should theoretically be fairly portable, but I've only tested it on 5.6.0/Linux and 5.8.0/ActiveState. If you don't like the first joke it gives you, run it some more times and you won't like the other ones either ;-)

$|++;;($;,$:,$,,$\,$^,$==>$~,$.,$})=("Izntvar n", "Prey pbqr","fpevor"=> "!$/","ernql"=>$^F, "boshfpng","fho",join ' ',@{;;[_(qw(oepgnf rhnuar nfarqr gu))]} [2,$?,3,$|,@;,5]);sub ::{;my$i=$^;;[split /#/,join$`,map{$i^=$_} split//,pop@_]}@%= map{my$die=$_;sub{print for join$',@$die[ $%,$==>$|]}}map{[map{sub {my$i=$!;join$&, map{my$o=$i;$i=$_;$o^$_;} split//,shift}; y;a-z;n-za-m;;$_;}@$_];}([ q"Ia Sbivrg ", "rf lbh","Rhffvn, $: $~"],[ "Ayy lbhe $~" ," ner orybat gb hf","rq $:" ], ["$; orb" ,"rq $:","jhys pyhfgre bs $~" ],["$|. We" .'v'."gr $~","$/3. Pebsvg","r" .qq-q-.' ' .$:.".$/$=. ???"],["Tur arkg ". "$: $~"=> "ef $} vg"." rneyl",q"vba jvyy " .'or'.qq ' $^ fbba, ohg $.$,'] );%_=map {my$z=( ($_|=$^O)?$_:::($_)); $_,sub{ while( pop){my$x=unpack'V',$_ ;push@| ,($x> $_?$x:$_)}print for@|}} 1..1024; ;sub _{+(@;=>@:)=map{[split//]}@_;for(1..9 ){push@:,join$&,map{shift@$_}@;}@:}$%[rand@%]->()
update: code below this point is my signature and is not part of the above obfuscation. I've reworked the sig to start with a semicolon in case someone uses them together, but that was not the intention.
update2: corrected spelling error

;$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()} }split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print;

In reply to Slashdot lamejoke generator by jonadab

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • Outside of code tags, you may need to use entities for some characters:
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.
  • Log In?
    Username:
    Password:

    What's my password?
    Create A New User
    Chatterbox?
    and the web crawler heard nothing...

    How do I use this? | Other CB clients
    Other Users?
    Others examining the Monastery: (7)
    As of 2014-07-29 21:56 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?

      My favorite superfluous repetitious redundant duplicative phrase is:









      Results (229 votes), past polls