如何在Perl中運行外部程序？

Question

我想用Perl腳本來執行C程序。什麼輸入手動給C的可執行文件，這些應該由我的程序給出..

讓我們來看一個簡單的程序，它需要輸入兩個數字。並打印它的總和。 這些值應該由Perl腳本提供。

請通過一些教程指導我，我可以實現同樣的目標。如果你想捕捉從C程序的輸出在你的Perl腳本

system "my-c-program 1 2"; 

，然後使用反引號或qx// operator：

Answer 1

使用system功能

my $output = `my-c-program 1 2`; 

運行my-c-program 1 2和將標準輸出捕獲到新的$output變量中。

Answer 2

您可能在反引號引用機制之後執行外部程序並將其stdout作爲字符串返回。 例如

$date = `date` 
print $date; 

會在unix中打印「Wed Oct 7 12:50:33 CEST 2009」。然而，出於安全目的，這些論據必須進行脫殼處理，而且在某些情況下這可能會非常棘手 - 在大多數情況下，污染是一種方法。

我建議所有的初學者，直接進入了「系統」命令，直到他們意識到了反引號的安全隱患 - 如果是這種情況你應該採取@戴夫韓丁的建議

對於高級魔法你應該閱讀perlipc perldoc。

Answer 3

那麼，如果你只是在學習如何在Perl中運行外部程序 - 請爲你自己一個忙，忘掉``。

與``的問題是你執行一個帶有參數的字符串 - 所以它必須被解析。這可能會導致用戶提供參數時出現問題。

如果您100％確定完全控制參數和命令名稱，您可以使用``，但對於任何其他情況 - 請考慮使用IPC::Run。

它有點複雜，但它不需要任何參數解析使得更好。另外，您可以完全控制stdin，stdout和stderr執行的程序 - 包括將回調附加到它們！