Perl eval函数使用实例

Perl eval函数使用实例

投稿：junjie 字体：[增加 减小] 类型：转载 时间：2014-11-24 我要评论

这篇文章主要介绍了Perl eval函数使用实例,本文讲解了eval 函数的两种使用方式,并给出3个使用实例,需要的朋友可以参考下

width="680" height="200" align="center,center" id="iframeu2261530_0" src="http://pos.baidu.com/acom?sz=680x200&rdid=2261530&dc=2&di=u2261530&dri=0&dis=0&dai=2&ps=424x190&coa=at%3D3%26rsi0%3D680%26rsi1%3D200%26pat%3D6%26tn%3DbaiduCustNativeAD%26rss1%3D%2523FFFFFF%26conBW%3D1%26adp%3D1%26ptt%3D0%26titFF%3D%2525E5%2525BE%2525AE%2525E8%2525BD%2525AF%2525E9%25259B%252585%2525E9%2525BB%252591%26titFS%3D14%26rss2%3D%2523000000%26titSU%3D0%26ptbg%3D90%26piw%3D0%26pih%3D0%26ptp%3D0&dcb=BAIDU_UNION_define&dtm=BAIDU_DUP_SETJSONADSLOT&dvi=0.0&dci=-1&dpt=none&tsr=0&tpr=1456935635735&ti=Perl%20eval%E5%87%BD%E6%95%B0%E4%BD%BF%E7%94%A8%E5%AE%9E%E4%BE%8B_perl_%E8%84%9A%E6%9C%AC%E4%B9%8B%E5%AE%B6&ari=1&dbv=0&drs=1&pcs=1370x615&pss=1370x615&cfv=20&cpl=1&chi=1&cce=true&cec=gb2312&tlm=1454001225&ltu=http%3A%2F%2Fwww.jb51.net%2Farticle%2F57765.htm&ecd=1&psr=1366x768&par=1366x728&pis=-1x-1&ccd=24&cja=true&cmi=2&col=zh-CN&cdo=-1&tcn=1456935636&qn=671e95ee743f8e0b&tt=1456935635640.185.10197.10198" frameborder="0" marginwidth="0" marginheight="0" scrolling="no" vspace="0" hspace="0" style="margin: 0px; border: 0px currentcolor; border-image-source: none; vertical-align: bottom;" allowtransparency="true">

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

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

复制代码 代码如下:

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 脚本程序能实时生成和执行代码，从而实现了“动态代码”。

复制代码 代码如下:

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