Perl wget引号语法问题

Question

感谢您的阅读。

对于 wget 的 shell 命令，类似这样的工作：

wget -q -O - http://www.myweb.com | grep -oe '\w*.\w*@\w*.\w*.\w\+' | sort -u

但是，当我尝试在 Perl 程序中插入该命令时，我收到一个语法错误，指的是“在操作员预期的位置找到反斜杠，在操作员预期的位置找到裸字”。所以我用这个 {} 替换了正则表达式周围的引号，但是，这样做就像将它注释掉一样，它不会带来错误，但就好像正则表达式没有，所以显然花括号是错误的尝试。

这是代码，它在 foreach 中：

foreach(@my_array) {

$browser->get($_);
# and here below is where the error comes
system ('wget -q -O -"$_" | grep -oe '\w*.\w*@.\w*.\w\+' | sort -u');

如果我用 {} 替换包裹正则表达式的单引号，那么 wget 会获取 URL，但 grep 命令不起作用。

这就是问题所在，如何解决烦人语法的引号

Answer 1

您在系统调用中使用了单引号 '。他们不会为您填写变量。 $_ 没有被替换。此外，grep 旁边的单引号使这种语法无效。

试试这个：

system ("wget -q -O - $_ | grep -oe '\w*.\w*\@.\w*.\w\+' | sort -u");

您也可以使用qq 运算符：

system ( qq( wget -q -O - $_ | grep -oe '\w*.\w*\@.\w*.\w\+' | sort -u) );

另外，看看perlop.

---

另一个想法：如果你有$browser 对象可以get() url，为什么需要使用wget？您也可以在 Perl 中执行此操作。

Answer 2

你想要这个：

system ("wget -q -O -\"$_\" | grep -oe '\\w*.\\w*@.\\w*.\\w\\+' | sort -u");

你可以在双引号中包含你喜欢的内容，只是你必须对某些字符进行转义。

顺便提一下，Perl 的qq() 运算符可能会让您感兴趣。你可以查一下。