perl eval函数

分享一下我老师大神的人工智能教程！零基础，通俗易懂！http://blog.csdn.net/jiangjunshow

也欢迎大家转载本篇文章。分享知识，造福人民，实现我们中华民族伟大复兴！

               

29.2.32 eval• eval BLOCK• eval EXPR• evaleval 关键字在Perl 里起两种不同的但相关的作用。这些目的是用两种形式的语法来表现的， eval BLOCK 和eval EXPR。第一种形式捕获那些致命的运行时例外（错误），类似于C++ 或Java 里的“try 块”。eval { ... }; # 捕获运行时错误if ($@) { ... } # 处理错误[tomcat@wx03 ~]$ cat a1.pl use File::Path;eval {mkpath ("/root/bigger/1")};if ($@) {print $@; }[tomcat@wx03 ~]$ perl a1.pl mkdir /root/bigger: Permission denied at a1.pl line 2.eval BLOCK eval EXPR两种形式的 eval 所返回的值都是它计算的最后一个表达式的值，这一点和子过程一样。在 BLOCK 里的代码必须是合法的Perl 代码，这样它才能通过编译阶段。在EXPR 里的代码直到运行时才检查，所以要到运行时它才导致错误的发生。eval BLOCK 形式是在编译时做语法检查的，所以它的效率相当高。eval EXPR 形式可以捕获语法错误是因为它在运行时分析代码。eval EXPREXPR 是一个的表达式[tomcat@wx03 ~]$ cat a4.pl my $str=eval {return 100};print "\$str is $str\n";[tomcat@wx03 ~]$ perl a4.pl $str is 100eval 所返回的值都是它计算的最后一个表达式的值，这一点和子过程一样。类似的，你可以用return 操作符从eval 的中间返回一个数值

           

给我老师的人工智能教程打call！http://blog.csdn.net/jiangjunshow