tcpdump : recuperer code retour
Bonjour,
J'ai un script perl qui va executer une commande tcpdump pour verifier que des paquets sortent de ma machine...
Code:
1 2 3 4 5 6 7 8 9 10 11 12
|
open (XXX, "/usr/sbin/tcpdump -c 1 -l 'host LEHOST and port XXXX' 2>&1 | grep \"packets captured\" &");
while (){
if (/IP(.*)/) {
print "$1 ici\n";
}
else{
print "la\n";
}
sleep(2);
exit;
} # fin du while |
Mais la commande ne me retourne rien.. J'ai essayé de lancer cette commande en shell, et là, ça me renvoie "1 packets captured"...
Qu'est ce que je peux mettre comme test de verif dans mon while ?
Merci par avance...