in reply to match and regex

Use a zero-width negative lookahead assertion:
#!/usr/bin/perl -w
use strict;

foreach (<DATA>) {
   print "$1\n" if (m|(\w+\.bld)(?!\S*#)|)
}

__DATA__
../nbssbase/ip/bld/l?ibipGH040.bld:57:#   Reflecting change of eni.cxx
../nbssbase/ip/bld/l?ibipGH060.bld:60:#   Reflecting change of eni.cxx
../nbssbase/ip/bld/l?ib.bld:17:eni.cxx

[download]


Cheers,
Shendal

Replies are listed 'Best First'.
Re: Re: match and regex
by splitOnce (Acolyte) on Aug 13, 2002 at 19:43 UTC
    thanks ,, it works , would you mind explaining this part to me : 
     
(?!\S*#)

    [download]
[reply]
[d/l]
      I could, but I think that perldoc perlre can give a better explanation:
           (?!pattern)
               A zero-width negative lookahead assertion.  For
               example /foo(?!bar)/ matches any occurrence of
               "foo" that isn't followed by "bar".  Note however
               that lookahead and lookbehind are NOT the same
               thing.  You cannot use this for lookbehind.

               If you are looking for a "bar" that isn't preceded
               by a "foo", /(?!foo)bar/ will not do what you
               want.  That's because the (?!foo) is just saying
               that the next thing cannot be "foo"--and it's not,
               it's a "bar", so "foobar" will match.  You would
               have to do something like /(?!foo)...bar/ for
               that.   We say "like" because there's the case of
               your "bar" not having three characters before it.
               You could cover that this way:
               /(?:(?!foo)...|^.{0,2})bar/.  Sometimes it's still
               easier just to say:

                   if (/bar/ && $` !~ /foo$/)

      [download]
      Cheers,
      Shendal
[reply]
[d/l]

In Section Seekers of Perl Wisdom