本文和大家重點(diǎn)討論一下Perl Perl eval函數(shù)的概念，Perl eval函數(shù)可以看作是Perl虛擬機(jī)，它的參數(shù)就是一段Perl代碼，并且利用’Perldoc–feval’可以獲取Perl eval函數(shù)使用幫助。具體內(nèi)容請(qǐng)看本文詳細(xì)介紹。

Perl eval函數(shù)探討

Perl作為一種腳本語(yǔ)言可以實(shí)時(shí)地生成和執(zhí)行代碼。這種特性可以把代碼的編譯推遲到運(yùn)行時(shí)，所以又稱(chēng)為“動(dòng)態(tài)代碼”。另外，Perl也如Java、C++一樣提供了異常處理機(jī)制。本文將初步探討Perl中實(shí)現(xiàn)動(dòng)態(tài)代碼和異常處理機(jī)制的函數(shù)：eval。如有錯(cuò)誤不足，歡迎討論和批評(píng)指正。

Perl eval函數(shù)可以看作是Perl虛擬機(jī)，它的參數(shù)就是一段Perl代碼。利用’Perldoc–feval’可以獲取Perl eval函數(shù)使用幫助，其中介紹了它的兩種使用方式：

Perl eval函數(shù)之levalEXPR
EXPR是一個(gè)的表達(dá)式，例如：
eval"print$a";
eval'print$a'.',$b';
eval1+3;
eval'print'.'$a+$b,"\n"';
eval$command;#$command=‘print“helloPerl”’
eval$ARGV[0];
在執(zhí)行時(shí)，Perl解釋器會(huì)首先解析表達(dá)式的值，然后將表達(dá)式值作為一條Perl語(yǔ)句插入當(dāng)前執(zhí)行上下文。所以，新生成的語(yǔ)句與eval語(yǔ)句本身具有相同的上下文環(huán)境。這種方式中，每次執(zhí)行eval語(yǔ)句，表達(dá)式都會(huì)被解析。所以，如果evalEXPR如果出現(xiàn)在循環(huán)中，表達(dá)式可能會(huì)被解析多次。eval的這種方式使得Perl腳本程序能實(shí)時(shí)生成和執(zhí)行代碼，從而實(shí)現(xiàn)了“動(dòng)態(tài)代碼”。

Perl eval函數(shù)之levalBLOCK
BLOCK是一個(gè)代碼塊，例如：
eval{print$a};
eval{$a=1,$b=2,$c=$a+$b};
與第一種方式不同，BLOCK只會(huì)被解析一次，然后整個(gè)插入當(dāng)前Perl eval函數(shù)所在的執(zhí)行上下文。由于解析上的性能的優(yōu)勢(shì)，以及可以在編譯時(shí)進(jìn)行代碼語(yǔ)法檢查，這種方式通常被作為Perl用來(lái)為一段代碼提供異常捕捉機(jī)制，雖然前一種方式也可以。

按幫助的名稱(chēng)，稱(chēng)eval的參數(shù)程序?yàn)?ldquo;小程序”(mini-program)。在兩種方式中，Perl eval函數(shù)的返回值都是小程序的最后一條語(yǔ)句的值，如果遇到return語(yǔ)句，與子例程相同。
Script1: 

#!/usr/bin/Perl-w  
 
push(@program,'$i=1;');  
push(@program,'$i=3;$j=2;$k=$i+$j');  
push(@program,'$i=3;return24;$k=$i+$j');  
 
foreach$exp(@program)  
{  
$rtn=eval($exp);  
print$rtn,"\n";  
}  
Output:  
1  
5  
24 

 如果小程序中有語(yǔ)法錯(cuò)誤、運(yùn)行時(shí)錯(cuò)誤遇到die語(yǔ)句，eval將返回undef。錯(cuò)誤碼被保存在$@中。
Script2: 

#!/usr/bin/Perl-w  
 
push(@program,'$i=3;die"errormessage";$k=$i+$j');  
 
foreach$exp(@program)  
{  
$rtn=eval($exp);  
if(!defined($rtn))  
{  
print"Exception:",$@,"\n";  
}  
else  
{  
print$rtn,"\n";  
}  
};  

 Output:
Exception:errormessageat(eval1)line1.

Script3: 

#!/usr/bin/Perl-w  
 
#arun-timeerror  
eval'$answer=';#sets$@  
warn$@if$@;  
 
Output:  
syntaxerrorat(eval1)line2,atEOF  

【編輯推薦】

1. Perl函數(shù)手冊(cè)專(zhuān)家指導(dǎo)
2. Perl文件句柄概念詳解
3. 解析四大Perl操作符用法
4. 深入解析Perl內(nèi)部函數(shù)的使用
5. 學(xué)習(xí)筆記 Perl數(shù)字與字符串間的自動(dòng)轉(zhuǎn)換