use Perl

• Re: Line Noise (Score:1)

  by Aristotle (5147)

  It’s not Perl that’s line noise, it’s the regex syntax. Last night I wrote this: s{/(?!\.\.)[^/]+/+\.\.(?=/|\z)}{}g
  • Re: Line Noise (Score:2)

    by Dom2 (2981)

    I love the x modifier. :-)

    s{
        /           # Leading slash.
        (?!\.\.)    # No parent directories of root.
        [^/]+       # Pick out the directory name in root.
        /+\.\.      # Match any number of slashes, then parent directory.
        (?=/|\z)    # Assert that there is a following slash (or end of string).
    }{}gx

    So it cleans up pathnames to remove /foo/../bar/../baz to be ju
    • Re: Line Noise (Score:1)

      by Aristotle (5147) <pagaltzis@gmx.de> on 2006.05.03 3:09 (#47537) Homepage Journal

      Hmm, actually, that has a bug. The negative look-ahead must contain a trailing slash, otherwise the pattern will erroneously fail to match something like foo/..fooledya/../bar.

      At first I thought I needed a more complex assertion than just include a trailing slash in there, so I started rewriting the regex extensively, and after I realised that it’s not that complex, I noticed that my comments actually have a noticably different focus from yours, so I decided to keep the result for comparison:

      s{
          /             # Leading dir separator
          (?! \.\./ )   # Make sure this is not an updir
          [^/]+ /+      # Dir name, then any number of separators
          \.\. (?=/|\z) # Updir, and make sure it is one
      }{}gx

      Reply to This

      Parent