Perl eval函数探讨

Perl 作为一种脚本语言可以实时地生成和执行代码。这种特性可以把代码的编译推迟到运行时，所以又称为“动态代码”。另外， Perl 也如 Java 、 C++ 一样提供了异常处理机制。本文将初步探讨 Perl 中实现动态代码和异常处理机制的函数： eval 。如有错误不足，欢迎讨论和批评指正。

 

eval 函数可以看作是 Perl 虚拟机，它的参数就是一段 Perl 代码。利用 ’perldoc –f eval’ 可以获取 eval 函数使用帮助，其中介绍了它的两种使用方式：

 

  l         eval EXPR

EXPR 是一个的表达式，例如：

[ruby]  view plain copy

1. eval    "print $a"  ;  
2. eval 'print $a' . ', $b' ;  
3. eval 1 + 3 ;  
4. eval 'print ' . '$a + $b, "/n"' ;  
5. eval $command;#$command = ‘print “hello Perl”’  
6. eval $ARGV[0];  

l         eval BLOCK

BLOCK 是一个代码块，例如：

eval {print $a};

eval {$a = 1, $b = 2, $c = $a + $b};

与第一种方式不同， BLOCK 只会被解析一次，然后整个插入当前 eval 函数所在的执行上下文。由于解析上的性能的优势，以及可以在编译时进行代码语法检查，这种方式通常被作为 Perl 用来为一段代码提供异常捕捉机制，虽然前一种方式也可以。

 

按帮助的名称，称 eval 的参数程序为“小程序” (mini-program) 。在两种方式中， eval 函数的返回值都是小程序的最后一条语句的值，如果遇到 return 语句，与子例程相同。

[cpp]  view plain copy

1. <pre class="ruby" name="code">   Script1:  
2. #!/usr/bin/perl -w  
3.    
4. push ( @program,'$i = 1;');  
5. push ( @program,'$i = 3; $j = 2; $k = $i + $j');  
6. push ( @program, '$i = 3; return 24; $k = $i + $j');  
7.    
8. foreach $exp (@program)  
9. {  
10.     $rtn =eval($exp);  
11.     print $rtn,"/n";  
12. }  
13. Output:  
14. 1  
15. 5  
16. 24</pre><br>  
17. <pre></pre>  
18. <span style="font-family:宋体">如果小程序中有语法错误、运行时错误遇到</span> <span lang="EN-US"><span style="font-family:Verdana">die</span></span><span style="font-family:宋体">语句，</span><span lang="EN-US"><span style="font-family:Verdana">eval</span></span><span style="font-family:宋体">将返回</span><span lang="EN-US"><span style="font-family:Verdana">undef</span></span><span style="font-family:宋体">。错误码被保存在</span><span lang="EN-US"><span style="font-family:Verdana">$@</span></span><span style="font-family:宋体">中。</span><pre class="html" name="code"><pre class="ruby" name="code">   Script2:  
19. #!/usr/bin/perl -w  
20.    
21. push ( @program, '$i = 3; die "error message"; $k = $i + $j');  
22.    
23. foreach $exp (@program)  
24. {  
25.     $rtn =eval($exp);  
26.     if ( ! defined ( $rtn))  
27.     {  
28.        print "Exception: " , $@,"/n";  
29.     }  
30.     else  
31.     {  
32.        print $rtn,"/n";  
33.     }  
34. } ;  
35.    
36. Output:  
37. Exception: error message at (eval 1) line 1.</pre><br>  
38. <pre></pre>  
39. <pre class="ruby" name="code">Script3:  
40. #!/usr/bin/perl -w  
41.    
42. # a run-time error  
43. eval '$answer =' ;   # sets $@  
44. warn $@ if$@;  
45.    
46. Output:  
47. syntax error at (eval 1) line 2, at EOF</pre><br>  
48. <br>  
49. <br>  
50. <pre></pre>  
51. <pre></pre>  
52.   
53. </pre>