Perl eval函數使用執行個體_perl

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