Perl eval函数探讨

发布时间：2020-12-16 00:16:25 所属栏目：大数据来源：网络整理

导读：转自：http://weidagang2046.blog.51cto.com/246444/45923/ ? Perl ? 作为一种脚本语言可以实时地生成和执行代码。这种特性可以把代码的编译推迟到运行时，所以又称为“动态代码”。另外，? Perl ? 也如? Java ? 、? C++ ? 一样提供了异常处理机制。本文将初

转自：http://weidagang2046.blog.51cto.com/246444/45923/

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

?

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

?

 
 l 
 ????????? 
 eval EXPR 

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

 
 eval? 
 "print $a"? 
 ; 

 
 eval? 
 'print $a'? 
 .? 
 ',$b'? 
 ; 

 
 eval? 
 1? 
 +? 
 3? 
 ; 

 
 eval? 
 'print '? 
 .? 
 '$a + $b,"n"'? 
 ; 

 
 eval? 
 $command;#$command = ‘print “hello Perl”’ 

 
 eval? 
 $ARGV[0]; 

 
 在执行时，? 
 Perl? 
 解释器会首先解析表达式的值，然后将表达式值作为一条? 
 Perl? 
 语句插入当前执行上下文。所以，新生成的语句与? 
 eval? 
 语句本身具有相同的上下文环境。这种方式中，每次执行 
 eval? 
 语句，表达式都会被解析。所以，如果? 
 eval EXPR? 
 如果出现在循环中，表达式可能会被解析多次。? 
 eval? 
 的这种方式使得? 
 Perl? 
 脚本程序能实时生成和执行代码，从而实现了“动态代码”。 

?

 
 l 
 ????????? 
 eval BLOCK 

 
 BLOCK? 
 是一个代码块，例如： 

 
 eval {print $a}; 

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

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

?

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

 
      Script1: 
       
      #!/usr/bin/perl -w 
     
       ? 
     
      push? 
      (? 
      @program,'$i = 1;'); 
     
      push? 
      (? 
      @program,'$i = 3; $j = 2; $k = $i + $j'); 
     
      push? 
      (? 
      @program,?'$i = 3; return 24; $k = $i + $j'); 
     
       ? 
     
      foreach? 
      $exp?(@program) 
     
      { 
     
      ???? 
      $rtn?=eval($exp); 
     
      ???? 
      print? 
      $rtn,"n"; 
     
      } 
     
      Output: 
       
      1 
     
      5 
     
      24

?

 
 如果小程序中有语法错误、运行时错误遇到? 
 die? 
 语句，? 
 eval? 
 将返回? 
 undef? 
 。错误码被保存在 
 $@? 
 中。 

 
      Script2: 
       
      #!/usr/bin/perl -w 
     
       ? 
     
      push? 
      (? 
      @program,?'$i = 3; die "error message"; $k = $i + $j'); 
     
       ? 
     
      foreach? 
      $exp?(@program) 
     
      { 
     
      ???? 
      $rtn?=eval($exp); 
     
      ???? 
      if? 
      (? 
      !? 
      defined? 
      (? 
      $rtn)) 
     
      ???? 
      { 
     
      ??????? 
      print? 
      "Exception: "? 
      ,? 
      $@,"n"; 
     
      ???? 
      } 
     
      ???? 
      else 
     
      ???? 
      { 
     
      ??????? 
      print? 
      $rtn,"n"; 
     
      ???? 
      } 
     
      }? 
      ; 
     
       ? 
     
      Output: 
       
      Exception: error message at (eval 1) line 1. 
     
       ?

?

Script3:

#!/usr/bin/perl -w

# a run-time error

eval? '$answer ='? ;??? # sets $@

warn? $@?if$@;

Output:

syntax error at (eval 1) line 2,at EOF

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!