<rt id="bn8ez"></rt>
<label id="bn8ez"></label>

  • <span id="bn8ez"></span>

    <label id="bn8ez"><meter id="bn8ez"></meter></label>

    weidagang2046的專欄

    物格而后知致
    隨筆 - 8, 文章 - 409, 評論 - 101, 引用 - 0
    數據加載中……

    Perl eval函數探討

    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

    ?

    posted on 2006-08-27 21:03 weidagang2046 閱讀(631) 評論(0)  編輯  收藏 所屬分類: Perl

    主站蜘蛛池模板: 日韩在线视频免费| 朝桐光亚洲专区在线中文字幕 | 国产亚洲成归v人片在线观看 | 特a级免费高清黄色片| 国产无遮挡又黄又爽免费视频| 亚洲另类自拍丝袜第五页| 成年网站免费视频A在线双飞| 久久精品国产亚洲av麻豆蜜芽| 亚洲高清中文字幕免费| 精品久久亚洲中文无码| 最近2019中文免费字幕| 麻豆狠色伊人亚洲综合网站 | 在线a亚洲老鸭窝天堂av高清| 欧美在线看片A免费观看| 国产人成亚洲第一网站在线播放| 成人免费视频试看120秒| 亚洲国产精品自在自线观看| 国产成人免费网站在线观看 | 春暖花开亚洲性无区一区二区 | 免费中文字幕在线观看| 成年网在线观看免费观看网址| 亚洲午夜福利717| 亚洲精品免费在线观看| 亚洲av无码不卡久久| 在线观看永久免费视频网站| 无码日韩人妻AV一区免费l | 亚洲无人区一区二区三区| 免费在线看污视频| 亚洲一级毛片免费观看| 成人永久免费福利视频网站| 国产美女视频免费观看的网站| 亚洲三级电影网站| 青青草国产免费久久久91| 久久久久久久久久免免费精品 | 久久99国产综合精品免费| 亚洲黄色激情视频| 久久久久噜噜噜亚洲熟女综合 | 久9热免费精品视频在线观看| 亚洲乱妇老熟女爽到高潮的片| 亚洲一级特黄无码片| 精品无码免费专区毛片|