在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)';