執行tcpstat命令並同時對其輸出執行

Question

我正在嘗試運行tcpstat命令，該命令給出接收的請求數量爲icmp的輸出。同時我需要檢查計數，以便如果超過某個閾值，應該顯示一條消息。

我嘗試了這樣的事情

#!/usr/bin/perl 

my @count= system "tcpstat -i eth1 -f icmp[0]==8 -o %C"; 

my $i=0; 
while ($i<1000) 
{ 
print "count of packets is :".$count[$i]."\n"; 
$i=$i+1; 
if($count[$i]>50) 
{ 
print "thats a lot of pings"; 
} 
} 

，但它似乎並沒有工作，因爲...命令的執行沒有用戶中斷並沒有結束......

是可能做到這一點？運行命令並同時對其輸出執行操作？

Answer 1

在shell中運行您的tcpstat命令並將輸出傳送到您的perl腳本。

tcpstat -i eth1 -f icmp[0]==8 -o %C | perl script.pl 

這樣，你應該期望從<STDIN>輸入，並在Perl除去當然system通話。