in reply to Regex to dereference

Are you trying to find the length of the string? length is much better than your pos loop for that purpose.

Is the last line in your code meant to handle the case you're saying doesn't work in the main substitution? Well, sure the main one doesn't work, because /\\(.)/ doesn't match at the last character. It can't! $_ .= "\\" if /\\$/ is one way to do it -- no need for a length check at all.

By the way, "dereference" is usually understood to mean something else that what you are using it as here. The term you are looking for is probably "escape" or colloquially "backwhack".

Replies are listed 'Best First'.
Re^2: Regex to dereference
by Hena (Friar) on Jan 19, 2007 at 06:40 UTC
    The thing is that if there is only one '\' character, then it should be doubled, but if there is two then not. Basicly if there is even amount then no change, and odd, then change the last. So direct test on last char doesn't really work.

    But thanks for the term help. As all my perl (and most of my coding as well) is self-taught :).
      Ah, then you need what's called a zero-width negative look-behind.

      $str =~ s/(?<!\\)\\$/\\\\/; # match a backslash at the EOL # that isn't preceded by a backslash

      See perlre for more stuff like this.