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

Question

为什么这不起作用？

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

给出：

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

Answer 1

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

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

Answer 2

它不起作用，因为你的双引号字符串会受到插值的影响，这些变量不会很好，这些变量会在适当的位置展开。而且你需要在你的eval外面加一个分号，而不是在你的内部。尝试使用单引号：

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

Answer 3

更好的问题是为什么你首先使用eval？我怀疑你使用的是LWP::UserAgent，除非你实现自己的请求对象，否则'request`方法不太可能会死掉。

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

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