Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

comment on

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

Not what you might think it is...

#!perl -w use strict;$|++;my$X=1;my$Y=5;if (shift){$X=3;$Y=6;}@_=split(m//, " \\;'\@0");splice@_=>2,0=>"";my $racer=q!s/(.)/$-=3**$;++;$=+=$-*$1 /goSpeedgo!; $racer=~tr/Spdx//d;sub or() {while($$=~m(((\d{2,3})*((?<!^)(([^\n]{3})))[A-Z]*))g) {$==$; =$^S;($_=$5gt$3?$ 4gt$5?$1 :$2:$1) =~y.\.\-_.120.; eval$racer;$@=() ;($^[.= chr ($= +65))=~y[\[][ ] =~y!\!!\!\!!d;} $==chop ($==hex( $=));for(split (m=\x51==>$^[)){ ($@->{qq {$_[++$/ ]\n}}=$_)=~y (JXZ)(.!@);}$/= chr$/+--$/; $$="";$?= 16;$:=chop($:= '$|');$.=-6;my $d=" "x22;my$JAPH=reverse"JustAnotherPerlHacker ";$%=-25; my@S=(30,65,17,72,21,7,41,5,62,8,65,84,1,12,12,57,46,4,16); my$M5= "O-O";$-=-7; my $C= $:." "x(22) .$:;$;=chop$JAPH;{for(1..$?) {$^X=$d;for(1 ..rand($X )+1){substr($^X,rand(22),1)= "*";}if(++$%> 1 and rand ($Y) <1){substr($^X,rand(19), 3," $; ");} unshift@$, ++$.<1?"$:$d$:":"$:$^X$:";}$? =1;($C=pop@$) =~s/[BN]/ /g;substr($C,$=,3,$M5);print"\n"x$S[0];for(1..15 ){print"\040\040\040\040\040$$[$_-1]\n";}printf"\040\040"; printf "\040\040"; printf "\040$C T"; printf "%c%d%cM:%d%c" ,58,time-$^T,32, ++$-,32*1; printf "B:$S[7]\040\b \b\b\bN%c%d\40" ,58,$S[12]; printf "S%c \b%s%c\n" ,58,$S[17], 867 +5309-6144; printf "\40\40\040%c" ,32; print"\40" ,"_"x(24)," \040\40\040\40\b\040$$\n\n";$JAPH or$a=~s/[^\@]/0/g;!$JAPH and $a=~s/(.).{0,}/$1\n/;$@->{"\\\n"} =~s/(([^ ]+)( ))(.*)/ printf "%s%s%s%s",$1 #$+=$- ;chop($JAPH); ,join( $_[0],@_[3..4] ),$3,$4/oe;last if$a;$S[10-9] =time; $a=<>; next if $!+=time -$S[1] and time-$S[1] >3 and $a= "'\n";next if($a=~/^;$/and defined$=-- and $C !~s/[^$:]$M5([ Z]{0})/$M5 /)or ($a=~/^'$/and $=++and$C!~/$M5[^$:]/)or($a=~/^;;$/and$S[17]and defined ($=-=2)and--$S[17]and$C!~/[^$:]{2}$M5/)or($a=~/^''$/and$S[17] and $= +=2and--$S[17] and $C!~ /$M5[^$:]{2}/ )or($a=~ / /and$S[7] and substr($$[-1], $=,3," ")and --$S[7]&& 0);{if($a=~/n/i and$S[12]) { --$S[12];my$i= 15-1;$$[$i --]=~s/[^$:]/ /g while$i> 15-5}$$[-1]=~ /^.{$=}(?:p ){0}(.{3})/;next if($_= $1)=~/\*/and$a= "Q"; if($_=~ /[^ ]/){$$.=$;lt'a'? " $;":$;;my$J=chop ($JAPH); for( @$){s/$;/$J/;}next unless$JAPH; $; =$J;$S[rand(17)+3]++; }undef$a;last;}redo;}$@->{"0\n"}.=$!+$-;$a=~s{[;']{1,2}}{;}g; exists$@->{$a}or$a=$/;print"$@->{$a}\n";exit;}$$-=$$;while (<DATA>){m/#+/and &or or($$.=$_)=~s/[\n ]//mg;}__DATA__ -_-__-.._---...---___..._._---__-_-.___-__.._.-.-__--. _____-.-_-.-----_.-..-..._.----..-_-._-----._-..--.--- ._-.-____._----._____--.--..._-_.-.-.-._---..-_----_._ --.-.._.-.._-----.--__-_.- _._-----..- ._-._---._-. -_.._----__ -_. --_- ._-._-.-.-. ._- -..- ..---__--_. -....--.---- _---..-_--- -..-.._--..._---..____._-. ._...---.__ _-----___---_-_--.-_-.._-.-.-._-..._--.-_..--._--_---. ...__-._-..__-.__.-__-.._...-._---..-_----..---_...-.- ---_---..-_----_-_-..._----___---__--__-..--..._----.. -._--- #

In reply to Perl Racer by turnstep

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

  • Are you posting in the right place? Check out Where do I post X? to know for sure.
  • Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
    <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
  • Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
  • Want more info? How to link or How to display code and escape characters are good places to start.
Log In?

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (5)
As of 2023-03-28 15:31 GMT
Find Nodes?
    Voting Booth?
    Which type of climate do you prefer to live in?

    Results (67 votes). Check out past polls.