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

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-, which would be silly because your target text doesn't have the ".gpg" suffix. Please post your actual pattern.


Comment on Re: Multiline match
Select or Download Code
Replies are listed 'Best First'.
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-"; my $patch = "patch-"; if ($str =~/$patch/ms) { print "Yes \n"; }

      Let's look more closely:

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

      Your target string is "update patch-". 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-"; if( $str =~ m/\Q$patch\E/ ) { .... }

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


        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?

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

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (5)
As of 2015-11-28 03:57 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (737 votes), past polls