Perl eval函数使用实例
Perl作为一种脚本语言可以实时地生成和执行代码。这种特性可以把代码的编译推迟到运行时,所以又称为“动态代码”。另外,Perl也如Java、C++一样提供了异常处理机制。本文将初步探讨Perl中实现动态代码和异常处理机制的函数:eval。如有错误不足,欢迎讨论和批评指正。
eval函数可以看作是Perl虚拟机,它的参数就是一段Perl代码。利用'perldoc–feval'可以获取eval函数使用帮助,其中介绍了它的两种使用方式:
evalEXPR
EXPR是一个的表达式,例如:
eval"print$a"; eval'print$a'.',$b'; eval1+3; eval'print'.'$a+$b,"\n"'; eval$command;#$command=‘print“helloPerl”' eval$ARGV[0];
在执行时,Perl解释器会首先解析表达式的值,然后将表达式值作为一条Perl语句插入当前执行上下文。所以,新生成的语句与eval语句本身具有相同的上下文环境。这种方式中,每次执行eval语句,表达式都会被解析。所以,如果evalEXPR如果出现在循环中,表达式可能会被解析多次。eval的这种方式使得Perl脚本程序能实时生成和执行代码,从而实现了“动态代码”。
evalBLOCK
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;return24;$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"errormessage";$k=$i+$j'); foreach$exp(@program) { $rtn=eval($exp); if(!defined($rtn)) { print"Exception:",$@,"\n"; } else { print$rtn,"\n"; } };
Output:
Exception:errormessageat(eval1)line1.
Script3:
#!/usr/bin/perl-w #arun-timeerror eval'$answer='; #sets$@ warn$@if$@;
Output:
syntaxerrorat(eval1)line2,atEOF