Perl 作為一種腳本語(yǔ)言可以實(shí)時(shí)地生成和執(zhí)行代碼。這種特性可以把代碼的編譯推遲到運(yùn)行時(shí)，所以又稱為“動(dòng)態(tài)代碼”。另外， Perl 也如 Java 、 C++ 一樣提供了異常處理機(jī)制。本文將初步探討Perl 中實(shí)現(xiàn)動(dòng)態(tài)代碼和異常處理機(jī)制的函數(shù)： eval 。如有錯(cuò)誤不足，歡迎討論和批評(píng)指正。
eval 函數(shù)可以看作是 Perl 虛擬機(jī)，它的參數(shù)就是一段 Perl 代碼。利用 'perldoc –f eval'可以獲取 eval 函數(shù)使用幫助，其中介紹了它的兩種使用方式：
復(fù)制代碼 代碼如下:
eval EXPR
EXPR 是一個(gè)的表達(dá)式，例如：
復(fù)制代碼 代碼如下:
eval "print $a" ;
eval 'print $a' . ', $b' ;
eval 1 + 3 ;
eval 'print ' . '$a + $b, "\n"' ;
eval $command;#$command = ‘print “hello Perl”'
eval $ARGV[0];
在執(zhí)行時(shí)， Perl 解釋器會(huì)首先解析表達(dá)式的值，然后將表達(dá)式值作為一條 Perl 語(yǔ)句插入當(dāng)前執(zhí)行上下文。所以，新生成的語(yǔ)句與 eval 語(yǔ)句本身具有相同的上下文環(huán)境。這種方式中，每次執(zhí)行eval 語(yǔ)句，表達(dá)式都會(huì)被解析。所以，如果 eval EXPR 如果出現(xiàn)在循環(huán)中，表達(dá)式可能會(huì)被解析多次。 eval 的這種方式使得 Perl 腳本程序能實(shí)時(shí)生成和執(zhí)行代碼，從而實(shí)現(xiàn)了“動(dòng)態(tài)代碼”。
復(fù)制代碼 代碼如下:
eval BLOCK
BLOCK 是一個(gè)代碼塊，例如：
復(fù)制代碼 代碼如下:
eval {print $a};
eval {$a = 1, $b = 2, $c = $a + $b};
與第一種方式不同， BLOCK 只會(huì)被解析一次，然后整個(gè)插入當(dāng)前 eval 函數(shù)所在的執(zhí)行上下文。由于解析上的性能的優(yōu)勢(shì)，以及可以在編譯時(shí)進(jìn)行代碼語(yǔ)法檢查，這種方式通常被作為 Perl 用來(lái)為一段代碼提供異常捕捉機(jī)制，雖然前一種方式也可以。
按幫助的名稱，稱 eval 的參數(shù)程序?yàn)椤靶〕绦颉?(mini-program) 。在兩種方式中， eval 函數(shù)的返回值都是小程序的最后一條語(yǔ)句的值，如果遇到 return 語(yǔ)句，與子例程相同。
Script1:
復(fù)制代碼 代碼如下:
#!/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:
復(fù)制代碼 代碼如下:
1
5
24
如果小程序中有語(yǔ)法錯(cuò)誤、運(yùn)行時(shí)錯(cuò)誤遇到 die 語(yǔ)句， eval 將返回 undef 。錯(cuò)誤碼被保存在$@ 中。
Script2:
復(fù)制代碼 代碼如下:
#!/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:
復(fù)制代碼 代碼如下:
Exception: error message at (eval 1) line 1.
Script3:
復(fù)制代碼 代碼如下:
#!/usr/bin/perl -w
# a run-time error
eval '$answer =' ; # sets $@
warn $@ if$@;
Output:
復(fù)制代碼 代碼如下:
syntax error at (eval 1) line 2, at EOF
