соответствие шаблону perl в многострочной строке

Question

У меня есть переменная, которая содержит около 100 строк. Мне нужно распечатать строки, где есть URL.

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

Мне нужно распечатать только ссылки на ссылки.

Как напечатать все строки, соответствующие шаблону, из строки $. Пробовал приведенный ниже код.

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

Answer 1

Вы должны использовать /g Modifier, чтобы соответствовать несколько строк:

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

Выходы:

http://somelink1 
http://link2 

Однако, если вы тянете в этих данных из файла, вы» d Лучше всего просто делать показания по строкам:

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