use Perl

• /o (Score:2)

  by petdance (2468) <andy@petdance.com> on 2006.11.29 1:12 (#51946) Homepage Journal

  Change this while ($head_txt =~ m/\G(.+?)$mycrlf/g) { to while ($head_txt =~ m/\G(.+?)$mycrlf/go) { I'm assuming the $mycrlf never changes, right?

  --
  

  --
  xoa

  Reply to This

  • Re: (Score:1)

    by rjbs (4671)

    I'm afraid that mycrlf does. It's the line ending that's used in the given email. There are two regex involved: $crlf and $mycrlf. The former matches any valid line ending, the latter matches those which are expected in this header.
    
    If I use $crlf, I should be safe, and that is constant. Switching to use that and enabling /o didn't really help, though.
    
    Here's the better thing, though. It seems that I was wrong in my belief that I couldn't use a /g pattern on a dereferenced string. I don't know why I co

    --
    rjbs
  • Will that really help? (Score:1)

    by Limbic Region (3985)

    See Questions concerning /o regex modifier [perlmonks.org] for details.
    • Re: (Score:1)

      by rjbs (4671)

      In this instance, anyway, it did not. Perhaps it would if I tested under an older perl.
      
      MJD once gave me and/or the internet an explanation of when it helped, and it was a much smaller case than I had previously thought, so now I usually don't even think about it. :-/

      --
      rjbs