weidagang2046的专栏

物格而后知致
随笔 - 8, 文章 - 409, 评论 - 101, 引用 - 0
数据加载中……

Perl eval函数探讨

Perl eval 函数探讨

 

2006-8-27

 

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

 

posted on 2006-08-27 15:47 weidagang2046 阅读(5519) 评论(4)  编辑  收藏

评论

# re: Perl eval函数探讨  回复  更多评论   

很不错,对eval的讲解挺清楚的,真有点“看君一回贴,胜读几天书!”的感觉。谢谢!
2006-12-03 13:03 | aspiration

# re: Perl eval函数探讨  回复  更多评论   

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

这里,只要$command以管道方式执行命令,即使不使用eval,命令也会被正常执行,比如写一个脚本:
#!/usr/bin/perl -w
$c = `net start xxx`;
执行脚本后就会发现,xxx服务已经启动了,文章里这样写容易误导初学者,不过总体来说,文章还是很不错的
2007-01-29 09:52 | python

# re: Perl eval函数探讨  回复  更多评论   

谢谢
2007-09-07 16:25 | guest

# re: Perl eval函数探讨[未登录]  回复  更多评论   

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

这里,只要$command以管道方式执行命令,即使不使用eval,命令也会被正常执行,比如写一个脚本:
#!/usr/bin/perl -w
$c = `net start xxx`;
执行脚本后就会发现,xxx服务已经启动了,文章里这样写容易误导初学者,不过总体来说,文章还是很不错的

----------------
看不懂二楼说的什么意思????!!
谁能解释一下
2008-06-05 14:50 | ds

只有注册用户登录后才能发表评论。


网站导航: