Perl перебирает каждое совпадение

Question

Допустим, я сканирую страницу необработанного HTML в поисках этого регулярного выражения.(Кавычка на конце является преднамеренной).

m/(https?:\/\/.*?(?:'|"))/

Этот шаблон, вероятно, будет соответствовать ~ 100 раз.Что такое распространенная идиома perl / быстрый способ перебора списка всех совпадений групп захвата?

Answer 1

Из perlretut (очень хороший учебник)

while ($x =~ /(\w+)/g) {
        print "Word is $1, ends at position ", pos $x, "\n";
    }

Вы можете использовать while вместе с модификатором g для итерации по всем совпадениям, с $1 вы получите содержимое вашей группы захвата 1, и в этом примере из урока вы также получите позицию с pos.

Answer 2

Модификатор глобального соответствия 'g' возвращает список захваченных совпадений в контексте списка:

say $_ for $str =~ /un($wanted)/g;    # Prints only $wanted

Answer 3

@ Захид: Я думаю, что ваш подход более компактен. надеюсь, что следующий фрагмент поможет понять ваш пример

my $str = 'file_%date%_%name%_%lang%.txt';
my @ts = $str =~ /%([\w]+)%/g;#           <----------Zahid said
print join(", ", @ts);

Выход:

date, name, lang