主頁 > 知識庫 > Perl eval函數(shù)使用實(shí)例

Perl eval函數(shù)使用實(shí)例

熱門標(biāo)簽:電話機(jī)器人哪里有賣 智能機(jī)器人電銷神器 上海企業(yè)外呼系統(tǒng) 外呼電信系統(tǒng) okcc外呼系統(tǒng)怎么調(diào)速度 熱門電銷機(jī)器人 萬利達(dá)百貨商場地圖標(biāo)注 河南虛擬外呼系統(tǒng)公司 惠州龍門400電話要怎么申請

Perl 作為一種腳本語言可以實(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ò)誤不足,歡迎討論和批評指正。

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 解釋器會首先解析表達(dá)式的值,然后將表達(dá)式值作為一條 Perl 語句插入當(dāng)前執(zhí)行上下文。所以,新生成的語句與 eval 語句本身具有相同的上下文環(huán)境。這種方式中,每次執(zhí)行eval 語句,表達(dá)式都會被解析。所以,如果 eval EXPR 如果出現(xiàn)在循環(huán)中,表達(dá)式可能會被解析多次。 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 只會被解析一次,然后整個(gè)插入當(dāng)前 eval 函數(shù)所在的執(zhí)行上下文。由于解析上的性能的優(yōu)勢,以及可以在編譯時(shí)進(jìn)行代碼語法檢查,這種方式通常被作為 Perl 用來為一段代碼提供異常捕捉機(jī)制,雖然前一種方式也可以。

按幫助的名稱,稱 eval 的參數(shù)程序?yàn)椤靶〕绦颉?(mini-program) 。在兩種方式中, eval 函數(shù)的返回值都是小程序的最后一條語句的值,如果遇到 return 語句,與子例程相同。

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

如果小程序中有語法錯(cuò)誤、運(yùn)行時(shí)錯(cuò)誤遇到 die 語句, 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

標(biāo)簽:百色 綿陽 淮安 秦皇島 合肥 周口 綏化 周口

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《Perl eval函數(shù)使用實(shí)例》,本文關(guān)鍵詞  Perl,eval,函數(shù),使用,實(shí)例,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《Perl eval函數(shù)使用實(shí)例》相關(guān)的同類信息!
  • 本頁收集關(guān)于Perl eval函數(shù)使用實(shí)例的相關(guān)信息資訊供網(wǎng)民參考!
  • 企业400电话

    智能AI客服机器人
    15000

    在线订购

    合计11份范本:公司章程+合伙协议+出资协议+合作协议+股权转让协议+增资扩股协议+股权激励+股东会决议+董事会决议

    推薦文章