Re^3: Multiline match

in reply to Re^2: Multiline match
in thread Multiline match

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"; }
[download]

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"; # ;)
[download]

You might want something like this:

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

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

Dave

Comment on Re^3: Multiline match Select or Download Code

Replies are listed 'Best First'.
Re^4: Multiline match by arunbhargav (Novice) on May 23, 2013 at 18:38 UTC
Thank you, 3 months away from Perl, this is what I did, Pathetic!! Thanks to you all for your patience, Cant ask for more	[reply]

In Section Seekers of Perl Wisdom