Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Re: Multiline match

by davido (Archbishop)
on May 23, 2013 at 16:35 UTC ( #1034980=note: print w/ replies, xml ) Need Help??


in reply to Multiline match

It might be helpful for us to know what $PatchPath contains. It's hard to debug a regex that we can't see, unless you're saying that your pattern looks like patch-5.1.1.21510.gpg, which would be silly because your target text doesn't have the ".gpg" suffix. Please post your actual pattern.


Dave


Comment on Re: Multiline match
Select or Download Code
Re^2: Multiline match
by arunbhargav (Novice) on May 23, 2013 at 16:40 UTC
    I dont how my following post got missed Sorry about the confusion, the following is the code I have been trying my $str = "update patch-5.1.1.21510"; my $patch = "patch-5.1.1.21510.gpg"; if ($str =~/$patch/ms) { print "Yes \n"; }

      Let's look more closely:

      my $str = "update patch-5.1.1.21510" my $patch = "patch-5.1.1.21510.gpg"; if( $str =~ /$patch/ms ) { print "Your Perl is broken!!!\n"; }

      Your target string is "update patch-5.1.1.21510". Your pattern requires "gpg" at the end. There's no "gpg" in your target string. If that produced a match, it would be an indication that your Perl is broken, because it should not match. Your pattern requires "gpg" to be present in the target string. That requirement isn't met. NO MATCH.

      Additionally, the "." character is a metacharacter that matches absolutely anything (that's what the /s modifier is doing for you). So even if you removed the 'gpg' from your pattern, it would still fail to match the target string because of the trailing '.' in the pattern, which would need to consume one more character at the end of your target string. Here's a target string that would match your pattern:

      my $str = "update patch-5A1B1C21510\ngpg"; # ;)

      You might want something like this:

      my $patch = "patch-5.1.1.21510"; if( $str =~ m/\Q$patch\E/ ) { .... }

      Here we're removing the "metacharacter" status of the dot, and also not requiring a 'gpg' extension.


      Dave

        Thank you, 3 months away from Perl, this is what I did, Pathetic!! Thanks to you all for your patience, Cant ask for more

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (6)
As of 2014-09-22 04:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (178 votes), past polls