Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re^2: Avoid a single value in the url

by roboticus (Chancellor)
on Jan 24, 2013 at 11:51 UTC ( #1015151=note: print w/replies, xml ) Need Help??


in reply to Re: Avoid a single value in the url
in thread Avoid a single value in the url

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.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1015151]
help
Chatterbox?
[GotToBTru]: time for some C8H10N4O2 for me
[ambrus]: GotToBTru: wait, you tell only the atom totals of what you want? Is that like ordering food in a restaurant by telling only the nutrient amounts you need, or
[ambrus]: like when a medieval scientist supposedly proves his priority inventing something by having previously published an anagram of a thousand letters long summary of the invention?
[choroba]: Progress! Nowadays, you can write a Perl script to generate such an anagram!
[GotToBTru]: i like to order my chemicals a-la-carte ambrus ;)

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (8)
As of 2016-12-06 13:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (104 votes). Check out past polls.