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

Re: Problem with regular expression

by Utilitarian (Vicar)
on Feb 12, 2013 at 16:01 UTC ( #1018403=note: print w/replies, xml ) Need Help??

in reply to Problem with regular expression

Your criteria are a little under specified, however the following works, for what you've asked.
#!/usr/bin./perl use strict; use warnings; my @in=("TFS100","TFS 100","TFS-CR100", "TFS-CR 100","TFS_100","TFS ID 100", "TFS CR 100","TFS ID100","TFS-ID 100", "TFS ID:100","TFS-ID: 100", "- TFS CR634: STRESS: H 17326,21600,", "CR0080588","TFS0080588" ); for (@in){ print "$1\n" if /TFS[-_\s]?(?:CR|ID)?\s?([1-9]\d+)/; }
print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."

Replies are listed 'Best First'.
Re^2: Problem with regular expression
by AnomalousMonk (Canon) on Feb 12, 2013 at 17:18 UTC
    Your criteria are a little under specified...

    Amen to that, brother!

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1018403]
[Your Mother]: Stick with what you know. Or post a SOPW and if it's not complicated I guarantee someone will answer; me if it's straightforward and no one else gets it better first.
[1nickt]: ++YourMother (Grammar Vigilante of Bristol)
[Lady_Aleena]: Um, how does grep do multiline? print "$file:$_" if grep { /get_(array|hash| data)\(.+\)/ } $_; only returns the same 18 lines the command line grep does.
[Lady_Aleena]: my scratchpad has what I have so far.
[choroba]: what do you mean by multiline?
[Discipulus]: thanks 1nickt!
[choroba]: grep is a filter, it selects elements from a list based on a boolean condition
[moritz]: you need to read the file in one go to do a multiline regex match
[erix]: ha ha, I like the Vigilante
[Lady_Aleena]: Forget it. I'm getting angry with it.

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (11)
As of 2017-05-23 19:45 GMT
Find Nodes?
    Voting Booth?