eval() 与 if() ——有性能差异吗？

Question

我的问题专门针对 Perl，但我希望对大多数语言有所启发。

使用 eval() 函数与 if() 语句之间是否存在实际差异（性能方面和效率方面）？

eval(-e /path/to/file) or die "file doesn't exist";
if (! -e /path/to/file) { die "file doesn't exist"; }

Answer 1

首先，不要像这样进行微观优化。编写您最容易理解的代码更为重要。牢记这一点将减少错误，避免一个错误比节省大量纳秒更重要。

也就是说，您可以检查 perl 如何编译如下内容：

$ perl -MO=Concise,-exec -e '-e "/path/to/file" or die "file doesn\x27t exist";'
1  <0> enter 
2  <;> nextstate(main 1 -e:1) v:{
3  <
gt; const[PV "/path/to/file"] s
4  <1> ftis sK/1
5  <|> or(other->6) vK/1
6      <0> pushmark s
7      <
gt; const[PV "file doesn't exist"] s
8      <@> die[t2] vK/1
9  <@> leave[1 ref] vKP/REFC
-e syntax OK

$ perl -MO=Concise,-exec -e 'if ( ! -e "/path/to/file") { die "file doesn\x27t exist"; }'
1  <0> enter 
2  <;> nextstate(main 3 -e:1) v:{
3  <
gt; const[PV "/path/to/file"] s
4  <1> ftis sK/1
5  <1> not sK/1
6  <|> and(other->7) vK/1
7      <0> enter v
8      <;> nextstate(main 1 -e:1) v:{
9      <0> pushmark s
a      <
gt; const[PV "file doesn't exist"] s
b      <@> die[t2] vK/1
c      <@> leave vKP
d  <@> leave[1 ref] vKP/REFC
-e syntax OK

您可以看到第二个中涉及 -e 结果的逻辑非的一些琐碎的额外操作，进入和离开 {} 块，并将骰子作为单独的声明。这个单独的声明可能很有用；如果您在调试器中单步执行代码，它会在死亡之前停止。

在旧版本的 Perl 中使用 Perl 5.12+ 或使用 unless 代替 if ! 会删除 not：

$ perl -MO=Concise,-exec -e 'unless (-e "/path/to/file") { die "file doesn\x27t exist"; }'
1  <0> enter 
2  <;> nextstate(main 3 -e:1) v:{
3  <
gt; const[PV "/path/to/file"] s
4  <1> ftis sK/1
5  <|> or(other->6) vK/1
6      <0> enter v
7      <;> nextstate(main 1 -e:1) v:{
8      <0> pushmark s
9      <
gt; const[PV "file doesn't exist"] s
a      <@> die[t2] vK/1
b      <@> leave vKP
c  <@> leave[1 ref] vKP/REFC
-e syntax OK

使用语句修饰符会产生与以下相同的结果-e ... or die 代码：

$ perl -MO=Concise,-exec -e 'die "file doesn\x27t exist" unless -e "/path/to/file";'
1  <0> enter 
2  <;> nextstate(main 1 -e:1) v:{
3  <
gt; const[PV "/path/to/file"] s
4  <1> ftis sK/1
5  <|> or(other->6) vK/1
6      <0> pushmark s
7      <
gt; const[PV "file doesn't exist"] s
8      <@> die[t2] vK/1
9  <@> leave[1 ref] vKP/REFC
-e syntax OK

Answer 2

字符串eval (eval EXPR)需要perl在每次执行时在运行时编译你的表达式，这比评估预编译的表达式要昂贵得多。对于任何提供类似运行时 eval 机制的语言（JavaScript、Ruby、Python？），在字符串 eval 和块 eval 中也是如此

（eval >eval { BLOCK })，perl 设置一个错误处理程序，设置 $@ 并在出现 else 情况时返回到 eval 语句的末尾致命错误。同样，这比在 Perl 和任何其他具有捕获异常功能的语言（Python、Java）中简单执行 BLOCK 的成本更高。