Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

Re: Regex MATCH

by Utilitarian (Vicar)
on Sep 14, 2012 at 08:14 UTC ( #993669=note: print w/replies, xml ) Need Help??

in reply to Regex MATCH

With the tags you provide, wouldn't something like the following be more discerning?
Utilitarian@busybox ~$cat tmp/ #!/usr/bin/perl use strict; use warnings; my $prefix='DOC_'; for (<DATA>){ chomp(my $line=$_); print "$line\n" if ($line =~ /^$prefix[0-9]{3}(_|-)[0-9]{3}$/); } __DATA__ DOC_001_123 DOC_002_214 DOC_001-548 DOC_001-987 Utilitarian@busybox ~$perl tmp/ DOC_001_123 DOC_002_214 DOC_001-548

bart below is correct, to constrain the matches to hyphens the regex above should have read /^$prefix[0-9]{3}-[0-9]{3}$/

print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."

Replies are listed 'Best First'.
Re^2: Regex MATCH
by bart (Canon) on Sep 14, 2012 at 10:45 UTC
    You've got it backwards. His regex matches, but he doesn't want it to match.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://993669]
[stevieb]: it is exceptionally difficult I'm finding to debug a dist that is x-platform, where on each platform you're wrapping a different binary. Trying to co-ordinate a successful test run where tests are extensive is a nightmare, especially when the dist...
[stevieb]:'re testing is a test system itself. 10+ documented issues fixed, another half dozen found while fixing the original ones. I'm getting there...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (5)
As of 2017-03-28 21:56 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (342 votes). Check out past polls.