Bonjour,

J'ai un script perl qui va executer une commande tcpdump pour verifier que des paquets sortent de ma machine...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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...