你的浏览器禁用了JavaScript, 请开启后刷新浏览器获得更好的体验!

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

| 我有一个字符串变量

$variable

我有一个像这样的模式：

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

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

已邀请:

2 个回复

我建议使用TreeBuilder解析HTML。如果使用XPath或look_down（）函数，则将获得性能。顺便说说：我的@arr = $ variable =〜/

您应该使用一个模块来处理HTML数据。如果您坚持这样做，那就是错误的方法：

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

要回复问题请先登录或注册