Perl eval 函数探讨

 

 

Perl eval函数探讨

 

 

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

 

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

 

l         eval EXPR

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

eval"print $a";

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

eval1+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