Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re: Single regex

by BrowserUk (Pope)
on Jan 10, 2013 at 16:57 UTC ( #1012702=note: print w/ replies, xml ) Need Help??

in reply to Single regex

print "$_: ", m[[nl]tv\.(?:com\.wid-prl\.)?com/(?:business|very-own)/] + ? 'matches' : 'nomatch' for qw[ ];; matches matches matches matches

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.

Comment on Re: Single regex
Download Code
Replies are listed 'Best First'.
Re^2: Single regex
by 0day (Sexton) on Jan 10, 2013 at 17:17 UTC
    good code, but I would add ^ and $

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1012702]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (6)
As of 2015-10-09 10:44 GMT
Find Nodes?
    Voting Booth?

    Does Humor Belong in Programming?

    Results (238 votes), past polls