perl中的eval

po98

　　eval 函数可以看作是 Perl 虚拟机，它的参数就是一段 Perl 代码。利用 ’perldoc –f eval’可以获取 eval 函数使用帮助，其中介绍了它的两种使用方式：
　　1、eval 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 脚本程序能实时生成和执行代码，从而实现了“动态代码”。
2、eval BLOCK：

eval {print $a};
eval {$a = 1, $b = 2, $c = $a + $b};
与第一种方式不同， BLOCK 只会被解析一次，然后整个插入当前 eval 函数所在的执行上下文。
由于解析上的性能的优势，以及可以在编译时进行代码语法检查，这种方式通常被作为 Perl 用来为一段代码提供异常捕捉机制，虽然前一种方式也可以。
按帮助的名称，称 eval 的参数程序为“小程序” (mini-program) 。在两种方式中， eval 函数的返回值都是小程序的最后一条语句的值，如果遇到 return 语句，与子例程相同。