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

comment on

( [id://3333]=superdoc: print w/replies, xml ) Need Help??
read*DATA,$_,13**+3;y #{} {}{};s>[\s*]+>>g;$i=length;s/ (.{$i})(.)/$2$1/gx while$i--;eval;; ;for(q\just \.q)another),q)perl hacker)){ for(split$!){$_=$$h{$_}?do{$_=$$h{$_};;;;;;;y <A-Za-z0-9+/>/ -_/&&unpack'u',chr(length()*.75+32 ).$_}:$"x$];$w=(sort{$b<=>$a}map+length,split$\=$/) [$]-$]];s/^(.*?)\s*$/sprintf'%-*s',$w,$1/egm;push@f,[ [split$\],$w]}for$x($?..-//+$]){push@{$x[$x]},@{$f[$_][ $?]}?pop@{$f[$_][$?]}:$"x$f[$_][//]for$?..$#f}$s.="@{+pop @x}$/"while@x;$k=$g=chr(ord$^);for(split$\,$s){$s=$g;$$s=$_ ;++$g}$==135;print$w="\e[H","\e[J";{print$w;print$"x$=,$$_? chop$$_:''for$k..$g;select$,,$,,$,,.01;--$=&&redo}}__END__!!! C**wX*yX****o*f*****ig*pv*AoB**LhCffX*g*I**I*lyI****8*g*FC8L8 8**v*I*LC*g9*8I*o81ga***ICXp*I*Ig8***CIv*wF*B*8*I*8*wX**gCvIA g*LA,L>8*Cg*CCyy*w**cIi**F>*L=8**L*X**='CgCLfg*vC8wXgX*Kef*9* B8C**I*g*gvIALKX*L**C*vy*>I*gX***I*Xg8**w1*}CA*=y8*y******lAyw* =8C*gy*f****f**y*8**loK****K88A**8f=,*II****'g*f*F*F*wf*v**gvCA C8*y*y*LIgK******Xf''***'*I***A*X=yiov***g>C*,*8*g****IAgvA*I*X Fj**gCy*8Xv**89v'*XI*ILy**=A**C1A*8y*v*o**v9KvXyw**f**f**X8**C* *Fy******C*C9**L*vf**C*vF*8gg$*y**v*8v**AL**II*ILKsK*Xyv**gCI** 8**y fI**K*F*8**L*,*I9*C**8*BiFw*fg,A8h8*gF' B*** vg*L *8*C*8*F*fX*CC8*g*B***,Iv88A***** gC8X *1*C C***IF*u******CX8**L>Xi=*** *C** C*v8* **ICI8I*>*KC***8IF*B*8* *oIF* **K** Av*ALvg**C*I*g**'*wBA **FLg *'1''* f=*yLLI*****'ff'* *fo*9g *IA>y F***v*8FIoy'*C* *Lf** I*8f8v *k'y8F*=vw*>g **Kf** vy8*X> *K*L*XgKw*' o*g'vF *1By' gBv*LI*** XX8** KB***' Xv**A'**8 v***of ilgCgC* **'***f y*BA*8i **LI*y* *8IoIv* *oC,y*g ,**gI**= *yC8i 'I8g*L>8 '9{8gB*>A F*18I **8A=*v** *yA'*1pf** *wv** ****,I8l*v *IAB*AC*f**f I**yA** yF*C1*Avp*** **gCv'*****KIyK******8C'g9I**yFK*IL8*A=vo*y C*ABX*F*fv8***AC,*9***wy***IKI****,Kn=i** **Xf8w*L1*w*9***8*,ygf*X**88oKCIC***I** I*8*'*F8IL***CL**y*>*>I*****fCC*8LC*y **XC***A*I*g*C*FA*w****Bv**CfyA*I g*I*y*****A*BI9'g**gy*Iw*L8*lgX *IXXX*A**X**8g*I88*I***B*i*** *y**X*FXAyg****Avgo*F*F*F *XAg*gC*i****,*LI**>* IK*I*Xg****tv**** XCA**8pr*CIg* A*K=***y*

In reply to Alien JAPH :) by trizen

Title:
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?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others musing on the Monastery: (2)
As of 2024-05-24 06:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found