Perl eval函数探讨
来源:互联网 发布:手机腾讯视频网络错误 编辑:程序博客网 时间:2024/06/04 21:10
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:1524
如果小程序中有语法错误、运行时错误遇到 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 erroreval '$answer =' ; # sets $@warn $@ if$@; Output:syntax error at (eval 1) line 2, at EOF
- Perl eval 函数探讨
- Perl eval函数探讨
- Perl eval函数探讨
- Perl eval函数探讨
- Perl eval函数探讨
- perl函数说明(eval)
- Perl eval函数
- perl eval函数
- Perl eval函数使用实例
- 【转】Perl的die、warn、eval函数
- Perl的die、warn、eval函数
- perl eval
- perl eval
- perl中eval函数的两种使用方式
- perl-- eval的作用
- Perl eval语句
- 【eval()函数】
- eval()函数
- Sql常用语句
- PhoneGap Plugins——NativeControls Plugin的使用与change orientation问题的解决方案
- 嵌入式工程师软硬件道路三步曲
- js日期格式化
- 设计模式(1)
- Perl eval函数探讨
- 利用javascript设置网页快捷键
- C++中的临时变量
- android 之button 屏幕翻转
- android 状态栏文档
- 学习心得之调试篇
- 給TEXTBOX添加文字水印
- 为Web图片服务器准备NFS共享
- Java时间格式转换大全