如何在变量中找到所有匹配的模式并将其写入到每个匹配字符串的输出和换行符中？

问题描述

| 我有一个字符串变量

$variable 

我有一个像这样的模式：

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

如何使用Perl在每个匹配的字符串之后打印该变量内的所有匹配字符串，并写入控制台换行符-\\ n？     

解决方法

我建议使用TreeBuilder解析HTML。如果使用XPath或look_down（）函数，则将获得性能。 顺便说说： 我的@arr = $ variable =〜/ ] *> D *（[^ <] +）/ g; for（0 .. @arr-1）{     打印$ arr [$ _]。 \“ \\ n \”; }     ,您应该使用一个模块来处理HTML数据。如果您坚持这样做，那就是错误的方法：

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