Perl eval函数使用实例
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
相关文章
这篇文章主要介绍了windows安装perl及komodo IDE的详细步骤,本文通过图文并茂的形式给大家介绍的非常详细，对大家的学习或工作具有一定的参考借鉴价值，需要的朋友可以参考下2020-12-12
这篇文章主要介绍了Perl中的真与假深入研究,本文详细讲解了Perl中真值与假值的不同,需要的朋友可以参考下2015-06-06
perl数组中正常的下标运算，想必大家都比较熟悉，这里不作说明。本文想说的是perl数组下标的多数字取值，可以极大的方便数组的操作2013-02-02
perl 用grep map求交集、并集、补集的例子，有需要的朋友可以参考下2013-02-02
perl可以使用JSON模块很方便的处理json的序列化和反序列化,本文通过一个简单例子给大家介绍的非常详细,感兴趣的朋友跟随小编一起看看吧2023-12-12
这篇文章主要介绍了Perl基本数组排序方法介绍,本文讲解基于ASCII码排序、比较函数、按字母顺序排列、Perl对数值排序等内容,需要的朋友可以参考下2015-06-06
这篇文章主要介绍了Perl中的文件读写学习笔记,本文讲解了打开、关闭文件、读文件、写文件、判断文件状态等内容,需要的朋友可以参考下2015-02-02
perl下获取命令行的参数跟数量的函数。2009-04-04
这篇文章主要介绍了perl AnyEvent简单介绍和入门知识,AnyEvent 是一个性能非常好的基于事件驱动的框架,需要的朋友可以参考下2014-09-09
Perl利用函数rand()和srand()为随机数（更确切的说是“伪随机数”）字符串的生成提供了基本的工具2013-02-02
最新评论