Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Comment on

( #3333=superdoc: print w/ replies, xml ) Need Help??
I'm impressed by how well parts of your code foil Perl::Tidy. The "@{[...]}" and s{}{...}e notation and the __END__ at the end of a line all cause Perl::Tidy not to respace those sections of code at all. The following modification is Perl::Tidy-friendlier:
#!/usr/bin/perl END{$_=(join$",@{[map{$%=$_;$_=&{$_{$_}};$%%2&&s%.%\u$&%;$_}($|..${$/= +\ ($^A+$|+$?)})]}).",";print}($,,$,,+$*,$,,$,)=($|..$=/(+++$^A+$^A)* +++$^A*++$^A);@_{++$|..2**(++$-+$-)}=(sub{(join$',map{+chr($|+$,+ ord($_))}reverse((split$`,&{$_{$=/($,*$,+$,)}})[$...$|]))."${\'s' }".substr(&{$_{2}},$^A,$|)},sub{"anoth".substr(&{$_{$^A}},+$-,$-+ $|)},sub{$a="\104\101\124\101";!seek$a,$=/($*+$,)+$|,$;or~~<$a>}, sub{local$";join$",@{[(split//,(chr($^A-$|+ord(substr(&{$_{$^A-$|}},+$ +? ..++$?)))).&{$_{$,/($^A-$|)}}.chr(2*$=-$^A*$,-$|))[$,+$|,$|,$--$| ,+-+$|,-$|x$?,+$=/(0+$,*+$*+-+-$*),$,+-+-~~$*+-+-$|]]}}); __END__
Here is a tidied version with comments:
#!/usr/bin/perl END { $_ = ( join $", @{ [ map { $% = $_; $_ = &{ $_{$_} }; $% % 2 && s%.%\u$&%; +$_ } # ucfirst odd words (1 -> "Just", 3 -> "Perl") ( $| .. ${ $/ = \( $^A + $| + $? ) } ) # 3+1+0 == 4; + $/ == \4 ] } ) . ","; # canonical print; } # $, == $* == $^A == undef; $| == $- == 0; $= == 60 ( $,, $,, +$*, $,, $, ) = ( $| .. $= / ( +++$^A + $^A ) * +++$^A * ++$ +^A ); # $, == 4; $* == 2; $^A == 3; $| == $- == 0; $= == 60 @_{ ++$| .. 2**( ++$- + $- ) } = ( # hash slice @_{ 1 .. 4 } = ( # $, == 4; $* == 2; $^A == 3; $| == $- == 1; $= == 60 sub { ( join $', # $' == last successful pattern match == undef # in original code $' == "" due to s{}{...} map { +chr( $| + $, + ord($_) ) } reverse( # $| + $, == 5 ( split $`, &{ $_{ $= / ( $, * $, + $, ) } } )[ $. .. +$| ] # $` == ""; 60/(4*4+4) == 3; $. == 0; $| == 1; "ep" -> "ju" ) ) . "${\'s' }" . substr( &{ $_{2} }, $^A, $| ); # substr("another",3,1) == "t" }, sub { "anoth" . substr( &{ $_{$^A} }, +$-, $- + $| ); # substr("perl",1,2) == "er" }, sub { $a = "\104\101\124\101"; # "DATA" !seek $a, $= / ( $* + $, ) + $|, $; # 60/(2+4)+1 == 11; $; eq chr 28 == 0 # ! / u s r / b i n / p e r l \n #1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 or ~~<$a>; # "perl" since $/ == \4; }, sub { local $"; join $", @{ [ ( split //, ( chr( $^A - $| + # $^A - $| == 2 ord( substr( &{ $_{ $^A - $| } }, +$? .. + ++$? ) ) # $? == 1; substr("another",0,1) == "a" -> "c" ) ) . &{ $_{ $, / ( $^A - $| ) } } # 4/(3-1) == 2 -> + "another" # &{$_{2}} calls &{$_{3}} which does a seek() and resets $? to 0 . chr( 2 * $= - $^A * $, - $| ) # 2*60-3*4-1 == +107 -> "k" )[ # canotherk # 012345678 $, + $|, $|, $- - $|, +-+$|, -$| x $?, # 4 + 1 == 5 -> "h"; 1 -> "a"; 1 - 1 == 0 -> "c"; -1 -> "k", -1 x 0 == + () +$= / ( 0 + $, * +$* + -+-$* ), # 60/(0+4*2+2) == 6 -> "e"; 4+2+1 == 7 -> "r" $, + -+-~~$* + -+-$| ] ] }; } ); __END__

In reply to Re: Four part JAPH by jdalbec
in thread Four part JAPH by cog

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 contemplating the Monastery: (6)
    As of 2014-07-12 14:32 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?

      When choosing user names for websites, I prefer to use:








      Results (240 votes), past polls