perl eval函数探讨

《perl eval函数探讨》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、Perleval函数探讨Perleval函数探讨2006-8-27Perl作为一种脚本语言可以实时地生成和执行代码。这种特性可以把代码的编译推迟到运行时，所以又称为“动态代码”。另外，Perl也如Java、C++一样提供了异常处理机制。本文将初步探讨Perl中实现动态代码和异常处理机制的函数：eval。如有错误不足，欢迎讨论和批评指正。eval函数可以看作是Perl虚拟机，它的参数就是一段Perl代码。利用’perldoc–feval’可以获取eval函数使用帮助，其中介绍了它的两种使用方式：l        evalEXPREXPR是一个的表达式，例如：eval"prin

2、t$a";eval'print$a'.',$b';eval1+3;eval'print'.'$a+$b,""';eval$command;#$command=‘print“helloPerl”’eval$ARGV[0];在执行时，Perl解释器会首先解析表达式的值，然后将表达式值作为一条Perl语句插入当前执行上下文。所以，新生成的语句与eval语句本身具有相同的上下文环境。这种方式中，每次执行eval语句，表达式都会被解析。所以，如果evalEXPR如果出现在循环中，表达式可能会被解析多次。eval的这种方式使得Perl脚本程序能实时生成和执行代码，从而实现了“动态代

3、码”。l        evalBLOCKBLOCK是一个代码块，例如：eval{print$a};eval{$a=1,$b=2,$c=$a+$b};与第一种方式不同，BLOCK只会被解析一次，然后整个插入当前eval函数所在的执行上下文。由于解析上的性能的优势，以及可以在编译时进行代码语法检查，这种方式通常被作为Perl用来为一段代码提供异常捕捉机制，虽然前一种方式也可以。按帮助的名称，称eval的参数程序为“小程序”(mini-program)。在两种方式中，eval函数的返回值都是小程序的最后一条语句的值，如果遇到return语句，与子例程相同。Script1:#!/

4、usr/bin/perl-wpush(@program,'$i=1;');push(@program,'$i=3;$j=2;$k=$i+$j');push(@program,'$i=3;return24;$k=$i+$j');foreach$exp(@program){$rtn=eval($exp);print$rtn,"";}Output:1524如果小程序中有语法错误、运行时错误遇到die语句，eval将返回undef。错误码被保存在$@中。Script2:#!/usr/bin/perl-wpush(@program,'$i=3;die"errormessage";

5、$k=$i+$j');foreach$exp(@program){$rtn=eval($exp);if(!defined($rtn)){print"Exception:",$@,"";}else{print$rtn,"";}};Output:Exception:errormessageat(eval1)line1.Script3:#!/usr/bin/perl-w#arun-timeerroreval'$answer=';#sets$@warn$@if$@;Output:syntaxerrorat(eval1)line2,atEOF