• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    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

    上一篇:perl面向对象实例
    下一篇:Perl函数(子程序)学习笔记
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    Perl eval函数使用实例 Perl,eval,函数,使用,实例,