sen:
No, that won't work. The [^gallery] bit is saying "... and doesn't contain a g, a, l, e, r, y after the slash after the domain". While there's plenty of magic in regexes to let you solve the problem, I don't bother trying so hard for things like this. If it were me, I'd try doing it in two steps, like so:
$ cat t.pl
use strict; use warnings;
while (<DATA>) {
if (m".*?/(.*?)/" and $1 !~ m"gallery"i) {
print "Match: $_";
}
else {
print "No match: $_";
}
}
__DATA__
foo bar/baz/boffo
bar foo/gallary/gallery
bim bam/gallery/blam/blim
arg blarg/gallery/flarg
$ perl t.pl
Match: foo bar/baz/boffo
Match: bar foo/gallary/gallery
No match: bim bam/gallery/blam/blim
No match: arg blarg/gallery/flarg
As you can see, I first check to see if it matches the overall form of the URL and capture the contents of the first thing between slashes. The second part of the if statement checks to see whether the thing I captured matched the string I don't want to see.
Also, to make the regex look a little less confusing, I used the m"regex" so I wouldn't have to have all the backslashes before the forward slashes.
...roboticus
When your only tool is a hammer, all problems look like your thumb. | 