Как найти все совпадающие шаблоны в переменной и записать их в выходной файл и символ новой строки для каждой совпадающей строки?

Question

У меня есть строковая переменная как

$variable 

и у меня есть шаблон как:

/<OPTION [^>]*>\D*([^<]+)/g 

Как я могу напечатать все соответствующие строки внутри этой переменной и записать на консоль символ новой строки - \ n после каждой соответствующей строки с Perl?

Answer 1

Я рекомендую использовать TreeBuilder для разбора HTML.Вы получите производительность, если будете использовать XPath или look_down () .

Кстати:

my @arr = $variable =~ /<OPTION [^>]*>D*([^<]+)/g;
for(0 .. @arr - 1) {
    print $arr[$_] . "\n";
}

Answer 2

Вам следует использовать модуль для обработки данных HTML.Если вы настаиваете на этом The Wrong Way:

print join("\n", $variable =~ /<OPTION [^>]*>\D*([^<]+)/g), "\n";