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

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";
}

[download]

Replies are listed 'Best First'.
Re^5: Multiline match
by LanX (Saint) on May 23, 2013 at 16:45 UTC
    thats the way it works

      DB<105> $str = "update\npatch-5.1.1.21510.pgp";
 => "update\npatch-5.1.1.21510.pgp"

  DB<106> $patch = "patch-5.1.1.21510"
 => "patch-5.1.1.21510"

  DB<107> $str =~/\Q$patch/
 => 1

    [download]

    $patch must be included in $str not vice versa.

    No need for multiline because your pattern doesn't span multiple lines.

    '\Q' assures that regex syntax like '.' is escaped.

    Cheers Rolf

    ( addicted to the Perl Programming Language)

[reply]
[d/l]
Re^5: Multiline match
by hdb (Monsignor) on May 23, 2013 at 16:36 UTC

    Along the lines of your initial code: 

    use strict;
use warnings;

my $PatchPath = "patch-5.1.1.21510.gpg";
my $output = "update
                       patch-5.1.1.21510";
my @array = split /\s+/, $output;
if (  grep { $PatchPath =~ /$_/  } @array ) {
      print "Match found\n";
}

    [download]

    SORRY: This post is somehow to far up in the chain. Should be a few posts further down...

[reply]
[d/l]

In Section Seekers of Perl Wisdom