perl pattern matching in multiline string

Question

I have a variable that holds some 100 lines in it. I need to print the lines where there is a url.

$string = "this is just a test line 1
this is a test line 2
http://somelink1
this is line 4
http://link2
...
...

I need to print only the url links.

How to print all the lines matching pattern from $string. Tried the below code.

my $resu =~ /(http(s)?://)?([\w-]+\.)+[\w-]+(/[\w- ;,./?%&=]*)?/, $string;
print $resu;

If you did not read all your input into a scalar in one long string, it would be a simple matter to loop over the input line by line and print the desired lines. This is a bit of an XY-problem. — TLP
– TLP, Commented Sep 30, 2014 at 18:49
Although it has been closed with a related but not duplicate question, I think the piece you are looking for in the regex is the flags: mgc (multi-line, global, don't reset the position). Then loop through the match in a while loop. — OtherDevOpsGene
– OtherDevOpsGene, Commented Sep 30, 2014 at 18:59

Miller · Accepted Answer · 2014-10-02 22:48:43Z

1

You need to use the /g Modifier to match multiple lines:

use strict;
use warnings;

my $string = <<'END_STR';
this is just a test line 1
this is a test line 2
http://somelink1
this is line 4
http://link2
...
...
END_STR

while ($string =~ m{(.*http://.*)}g) {
    print "$1\n";
}

Outputs:

http://somelink1
http://link2

However, if you're pulling in this data from a file, you'd be better off just doing line by line file reading:

while (<$fh>) {
    print if m{(.*http://.*)}g;
}

answered Oct 2, 2014 at 22:48

Miller

35.3k4 gold badges42 silver badges61 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

perl pattern matching in multiline string

1 Answer 1

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related