如何在使用Perl的`IPC :: System :: Simple：runx`時避免打印到標準輸出？

Question

我正在使用IPC::System::Simple:runx執行系統命令並死於意外的返回值。問題是命令輸出被打印到shell。

1. 如何避免打印此 輸出？
2. 如何避免打印此輸出 ，但將其變爲perl變量？

UPDATE

3）我怎麼能當且僅當執行失敗打印此輸出？

Answer 1

capture()命令？或者capturex（）。

從鏈接引用：

異常處理

在命令返回意外狀態，對運行和捕捉將拋出一個異常，如果不抓住會終止你的程序有一個的情況下錯誤。

捕獲異常很簡單：

eval { 
    run("cat *.txt"); 
}; 

if ($@) { 
    print "Something went wrong - $@\n"; 
} 

請參閱下面的診斷部分的更多細節。

Answer 2

如果一個模塊的行爲非常惡劣並直接打印到STDOUT，您總是可以將STDOUT重定向到其他東西。這種黑客，但一些模塊需要它。

# Save STDOUT for restore later 
open(OLD_STDOUT, ">>&STDOUT"); 
open(STDOUT, ">/some/file/or/dev/null"); 
# call your module 
# Restore STDOUT 
open(STDOUT, ">>&OLD_STDOUT");