Perl eval函數的兩種使用方式
本文和大家重點討論一下Perl Perl eval函數的概念，Perl eval函數可以看作是Perl虛擬機，它的參數就是一段Perl代碼，并且利用’Perldoc–feval’可以獲取Perl eval函數使用幫助。具體內容請看本文詳細介紹。
Perl eval函數探討
Perl作為一種腳本語言可以實時地生成和執行代碼。這種特性可以把代碼的編譯推遲到運行時，所以又稱為“動態代碼”。另外，Perl也如Java、C++一樣提供了異常處理機制。本文將初步探討Perl中實現動態代碼和異常處理機制的函數：eval。如有錯誤不足，歡迎討論和批評指正。
Perl eval函數可以看作是Perl虛擬機，它的參數就是一段Perl代碼。利用’Perldoc–feval’可以獲取Perl eval函數使用幫助，其中介紹了它的兩種使用方式：
Perl eval函數之levalEXPR
EXPR是一個的表達式，例如：
eval"print$a";
eval'print$a'.',$b';
eval1+3;
eval'print'.'$a+$b,"\n"';
eval$command;#$command=‘print“helloPerl”’
eval$ARGV[0];
在執行時，Perl解釋器會首先解析表達式的值，然后將表達式值作為一條Perl語句插入當前執行上下文。所以，新生成的語句與eval語句本身具有相同的上下文環境。這種方式中，每次執行eval語句，表達式都會被解析。所以，如果evalEXPR如果出現在循環中，表達式可能會被解析多次。eval的這種方式使得Perl腳本程序能實時生成和執行代碼，從而實現了“動態代碼”。
Perl eval函數之levalBLOCK
BLOCK是一個代碼塊，例如：
eval{print$a};
eval{$a=1,$b=2,$c=$a+$b};
與第一種方式不同，BLOCK只會被解析一次，然后整個插入當前Perl eval函數所在的執行上下文。由于解析上的性能的優勢，以及可以在編譯時進行代碼語法檢查，這種方式通常被作為Perl用來為一段代碼提供異常捕捉機制，雖然前一種方式也可以。
按幫助的名稱，稱eval的參數程序為“小程序”(mini-program)。在兩種方式中，Perl eval函數的返回值都是小程序的最后一條語句的值，如果遇到return語句，與子例程相同。
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
如果小程序中有語法錯誤、運行時錯誤遇到die語句，eval將返回undef。錯誤碼被保存在$@中。
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
【編輯推薦】
