Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • I think you can send this to DailyWTF for their “representative line” feature. Just this line would be enough:

    %{${${${$PCSSDUMP{CSSS}}{$css}}{OWNERS}}{$owner}}=%{${${${$CSSDUMP{CSSS}}{$css}} {OWNERS}}{$owner}} if ( eval { $owner =~ /$var/i } );

    As an exercise, consider what it might say about the rest of the system that a mere pattern match is wrapped in an eval.

    • No need to shout too widely about such code. I've heard people already know how bad Perl is ;-)

      All the eval { $value =~ /$var/i } bits are because they use Perl regexps to find elements. Yes, it means $var comes straight from user input, but it's an internal program, not accessible outside our network. I'll just remove these eval and replace them with one $regexp = eval { qr/$var/i } and return early if eval fails.

      --
      Close the world. txEn eht nepO