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' ; eval 1 + 3 ; eval 'print ' . '$a + $b,"/n"' ; eval $command;#$command = ‘print “hello Perl”’ eval $ARGV[0]; 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 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |