Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

Avoid a single value in the url

by Anonymous Monk
on Jan 24, 2013 at 09:28 UTC ( #1015117=perlquestion: print w/replies, xml ) Need Help??
Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

How to modify the below regex and https?://(www.)?(|||[^/]*/.*/.*/.*/.*/ URL:

If after domain name and an slash, if gallery is present then this regex should not match and any string other than "gallery" should be matched , Please tell how to modify the above regex.

https?://(www.)?(|||[^/]*/gallery/.*/.*/.*/ should not match https?://(www.)?(|||[^/]*/news/.*/.*/.*/ should match

Replies are listed 'Best First'.
Re: Avoid a single value in the url
by Anonymous Monk on Jan 24, 2013 at 09:48 UTC

    Please tell how to modify the above regex.

    No thanks, see perlrequick if you're interested

    if( isBlahGallery( $url ) ){ die "failed it"; } sub isBlahGallery { $_[0] =~ m{\.com/gallery}ism; }
Re: Avoid a single value in the url
by ansh batra (Friar) on Jan 24, 2013 at 09:46 UTC


Re: Avoid a single value in the url
by Anonymous Monk on Jan 24, 2013 at 09:49 UTC
    Is it possible using of this way. Please correct  https?://(www.)?(|||[^/]*/((?!gallery)).*/.*/.*/.*/
Re: Avoid a single value in the url
by sen (Hermit) on Jan 24, 2013 at 09:54 UTC


    Please try this, /https?\:\/\/(www.)?(|||[^\/]*\/[^gallery]\/.*\/.*\/.*\//



      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 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 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.


      When your only tool is a hammer, all problems look like your thumb.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1015117]
Approved by Ratazong
[hippo]: So if you don't drink as much milk and not as often you are said to drink less milk on fewer days. Confusing, eh?
[Eily]: same as many/much, few/little
[Discipulus]: so my 'less' usage sounded not so correct? 'fewer' was more appropriate? i take a note too
Discipulus $ENV{PAGER}='fewer '
[Corion]: Discipulus: Hahahaa! ;)
[Corion]: This would be a great April fools joke, since it certainly makes sense to show fewer pages on screen :)

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (5)
As of 2018-01-23 09:12 GMT
Find Nodes?
    Voting Booth?
    How did you see in the new year?

    Results (242 votes). Check out past polls.