2006-8-27
?
Perl
作為一種腳本語言可以實時地生成和執行代碼。這種特性可以把代碼的編譯推遲到運行時，所以又稱為“動態代碼”。另外，
Perl
也如
Java
、
C++
一樣提供了異常處理機制。本文將初步探討
Perl
中實現動態代碼和異常處理機制的函數：
eval
。如有錯誤不足，歡迎討論和批評指正。
?
eval
函數可以看作是
Perl
虛擬機，它的參數就是一段
Perl
代碼。利用
’perldoc –f eval’
可以獲取
eval
函數使用幫助，其中介紹了它的兩種使用方式：
?
l????????
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
腳本程序能實時生成和執行代碼，從而實現了“動態代碼”。
?
l????????
eval BLOCK
BLOCK
是一個代碼塊，例如：
eval {print $a};
eval {$a = 1, $b = 2, $c = $a + $b};
與第一種方式不同，
BLOCK
只會被解析一次，然后整個插入當前
eval
函數所在的執行上下文。由于解析上的性能的優勢，以及可以在編譯時進行代碼語法檢查，這種方式通常被作為
Perl
用來為一段代碼提供異常捕捉機制，雖然前一種方式也可以。
?
按幫助的名稱，稱
eval
的參數程序為“小程序”
(mini-proggram)
。在兩種方式中，
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
|
?