Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

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/tmp.pl #!/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/tmp.pl DOC_001_123 DOC_002_214 DOC_001-548
EDIT

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


Comment on Re: Regex MATCH
Select or Download Code
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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (7)
As of 2014-11-28 17:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (199 votes), past polls