在 Perl 中，为什么当我尝试使用字符串 eval 时会出现语法错误？

Question

为什么这不起作用？

eval "$response = $ua->request($r);"
print "$@";

给出：

syntax error at (eval 8) line 1, near "=" 

Answer 1

一个更好的问题是为什么你首先要使用 eval ？ 我怀疑您正在使用 LWP::UserAgent ，除非您实现自己的请求对象，否则“request”方法不太可能消失。

因此，为什么不简单地使用：

$response = $ua->request($r);

？

Answer 2

它不起作用，因为双引号字符串会受到插值的影响，随着这些变量的扩展，这不会顺利进行。 并且您需要在 eval 外部添加分号，而不是在内部添加分号。 尝试像这样的单引号：

eval '$response = $ua->request($r)';

Answer 3

更好的问题是为什么使用字符串 eval，而不是块 eval？

eval { $response = $ua->request($r); }
print "$@";