Выполнение команды 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

Запустите команду tcpstat в оболочке и отправьте вывод на ваш perl скрипт.

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

Таким образом, следует ожидать ввод от <STDIN> и удалить system вызов в Perl, конечно.