在perl中複製輸出並從中提取數字

Question

我正在使用perl腳本，在這個腳本中我將運行命令並獲得如下輸出：your id is <895162>。我將存儲該字符串，並僅從該字符串讀取數字。問題是我的主命令將使用來自perl的系統命令在shell中運行。

，如：

#ids.csh is "echo your id is <1123221>" 
my $p = system ("./ids.csh 2>&1 > /dev/null"); 
print "$p\n"; 
$p =~ s/[^0-9]//g; 

但輸出不復制到$ P檔，如果我錯了？

Answer 1

system運行命令但不捕獲它。對於這一點，你要qx /反引號：

my $p = `./ids.csh 2>/dev/null`; 

至於萊恩賈菲說，你可能想扔掉stderr輸出（而不是將其顯示到屏幕或其它地方的標準錯誤是怎麼回事），而不是標準輸出（即包含您想要捕獲的消息）。

請注意，當qx失敗時，由於幾種不同的原因可以這樣做，並且構建有意義的錯誤消息並不是微不足道的。如果遇到問題，請考慮使用IPC::System::Simple的capture（）。

Answer 2

您已將所有輸出重定向到/dev/null，這意味着您的所有輸出都將被丟棄。

我想你大概的意思是：

./ids.csh 2>/dev/null 

這將stderr重定向到/ dev/null的同時保持標準輸出不變。