程式上偶爾會需要取用到系統或其它非PERL本身的程式，PERL該如何呼叫？

PERL提供 system, exec, 反單引號` 等函數可供叫用，以下分別來說明。

呼叫外部程式

使用system來執行外部程式

假如在perl中想要呼叫其它的程式，稱之為「外部程式」，可以直接使用 system這個函數，例如 pwd顯示目錄的目錄及ls傾印：

輸出結果就和我們平時下指令沒什麼差別。

要注意的是，每一個system指令都是獨立的，並不是在同一個狀態(session)之下，舉個例子來說，我們希望傾印此目錄所在位置的上一層目錄，如果寫成這樣：

看起來有先切換到上一層目錄再執行傾印檔案，結果卻還是印出目前的目錄下的檔案，並不會印出上一層的檔案，這顯然不是我們想像的結果。

當然，解決的方法並不難，例如可以把指定寫在同一行，並用分號來分隔；或是指定目錄來傾印：

如果指令中帶有引數，也可以使用陣列的方法傳入：

以上 $? 是標準錯誤(STDERR)回傳的結果。

system的執行方式是執行後並等待回應，換句話說，假設叫用的外部程式有狀況，程式也只能等待，

正常的情況下，當叫用的外部程式結束後，會回到perl的行程並往下執行。

使用exec來執行外部程式

exec 和system 類似，只是exec不會回傳結果。

但是和system一樣，假如呼叫的指令本身就具有傾印結果的作用，則不在此限，例如執行以下的指令：

exec("ls");
exec("date");
exec("echo 'SOME TEXT'");

簡單來說，system執行時，原本的 Perl 程式會待在哪裡沒事做等待 system 裡執行的指令結束。但是exec 執行時，

原本Perl程式後面的行程就已經不存在了，只剩下執行 exec中命令的行程，而且該行程執行完畢之後，也不再返回原本的 Perl 行程。

例如下面的程式：

exec("date");
print "After exec\n";

執行結果

使用單引號來執行外部程式(backticks)

單引號的行為就像是直接shell的叫用方法

上面的引號是反單引號 ` ，鍵盤上數字1左邊那個按鍵，英文叫作backticks，千萬不要用錯。

反單引號是將送到標準輸出(STDOUT)的結果當回傳值，換句話說，原本要送到標準輸出的結果就會被劫斷，例如本來要印出日期時間的指令date：

反單引號也可以使用 qx() 來代替，例如以下兩種是等義：

取回叫用程式的執行結果

實務上叫用系統程式，有時需要取回執行的結果，我們先寫程式觀察上面的這三種方法再作結論：

$a=`date`;
print "單引號：$a\n";

$b= system("date");
print "system函數：$b\n";

$c= exec("date");
print "exec函數：$c\n";

執行結果

第8行 因為exec後面的部分不會被執行，所以第8行不會顯示

由此可以看到只有反單引號可以正確的將傾印的結果傳給變數$a，system回傳一個0(此例回傳空值)，而exec執行完即結束。

因此使用反單引號正是我們需要的。

評估 eval 的使用

PERL 提供了一個評估(eval)的方法，從字面上很難理解他的意義，簡單來說，eval就像是一個沙盒(sandbox)或是perl的虛擬機，我們可以在沙盒中執行某個函數或是程式區塊。

假設在這裡出了錯，PERL並不會因為錯誤而中止。

舉例來說，以下是一個一定會出錯的式子，因為除以0不被計算機接受。

執行結果

Illegal division by zero at 01.pl line X

就算出錯，如果我們也希望程式不要因此報錯或是不要中止的話，可以使用評估的方法，把原本的指令放在雙引號中，再交給eval執行。：

執行結果

<<沒有任何輸出也不會報錯>>

但是如此，會不知道在eval裡面到底發生了什麼事，還好有錯誤的話，eval會把錯誤寫到變數 $@ 中，只要判斷 $@是否為空字串即可。

執行結果

Illegal division by zero at (eval 1) line 1.

一般而言，只要判斷 $@是否為空字串，否則就印出警告，只要評估中沒有錯誤， $@ 一定是空字串。

評估可以不只寫成一行，也可以用大括號來包圍一個區塊，最後的分號很常被漏掉

例如下面的範例，在eval 中的變數能夠被eval外面讀到

eval {
 $a=123;
 $b=0;
 print $a/$b;
};
print $a;

執行結果

上面的範例可以發現第4行錯誤的計算並沒有顯示，但也沒有報錯，這就是評估好用的地方，類似在其它程式語言中的 try...catch 語法。

eval 還有其它作用，留待有興趣的人自行研究。

結論

1. 呼叫外部程式可用 system、exec、backticks 等內建的方式。

2. 呼叫外部程式並等待使用 system，呼叫外部程式後原perl程序就不執行用exec，需要取得執行結果用 backticks。

3. eval可以讓指定放在沙盒中執行，不因錯誤而停止。

參考資料

[1] https://stackoverflow.com/questions/799968/whats-the-difference-between-perls-backticks-system-and-exec

[2] http://puremonkey2010.blogspot.com/2010/09/perl-ch16.html

上一篇 23-多執行緒
回到目錄 01-撰寫第一隻PERL程式/目錄
下一篇 25-通訊和網路