use Perl

• you must be joking (Score:1)

  by duff (16)

  That is real, actual, in production code?
  
  I'm sorry you have to deal with it. That looks even worse than the PHP I have to maintain at $work.
  • Re: you must be joking (Score:1)

    by Maddingue (5320)

    I swear this is real, actual, in production code. My problem here will be to understand that code, and rewrite it from scratch in standard Perl. The next two months will be fun...

    --
    Close the world. txEn eht nepO
    • Re: you must be joking (Score:1)

      by steph (4655) on 2007.09.12 2:48 (#57753) Journal

      Pfoouh. my head still hurts from looking at one line. Must have been some kind of generated code, even writing that would be painful.

      Maybe it's worth to try to write some preprocessor to transform the code into something a bit more decent. Also can Perl::Tidy do something? if not, send to the author some tests ;)

      cheers --stephan p.s seems to me you'll be cleaning "les écuries d'Augias", but don't use brute force ;)

      Reply to This

      Parent

      • Re: (Score:1)

        by Maddingue (5320)

        I don't think it's generated code. It's just handwritten code with cargo-cult gone wrong and too much copy&paste.

        I've tried Perl::Tidy and PPI, but they're not helpful in such case. I've also looked at how I could preprocess this, but didn't find a way, so I'm doing this by hand. I'll post the result soon for the fun of comparison.

        --
        Close the world. txEn eht nepO