Bonjour,  
en faite voila j'ai fait un petit script qui me lance vlc et tetherreal ainsi j'arrive à voir les paquets qui sont envoyés par vlc.  
mais le problème c'est que thereal me sort à chaque fois la même adresse ip alors que dans mon script j'aimerais qu'il prenne les adresses de mon tableau les unes après les autres.  
peut être qu'avec le script vous comprendrez mieux  
 
 
#!cperl/bin/perl -w  
use win32:rocess;  
use Proc::WaitStat;  
 
 
 
#print ("Rentrez votre adresse multicast:" );  
 
@adrIn = ("@"."240.50.60.6:33000", "@"."240.50.60.5:33000" );  
print "@adrIn\n";#affiche le tableau  
 
foreach $a(@adrIn){  
{print "$a\n";}#affiche les éléments du tableau  
 
 
 
 system (1,"vlc -vvv udp://$a" );  
 
 system ("tethereal -w m.pcap -S -c 50 -T text " );  
 system ("tehereal exit" );  
   
 
print ("veuillez patienter...\n" );  
print ("verification de l'adresse multicast...\n" );  
 
sleep (3);  
 
@liste=`tethereal -r m.pcap`;  
$_=$liste[6];  
 
}  
 
en faite quand il teste madeuxième adresse le vlc est envoyé avec la bonne adresse mais quand il lance tethereal l'adresse multicast n'est pas changé elle est tjs celle de la première.et je ne sais pas comment faire pour que la deuxième adresse soit la bonne dans tethereal?c'est peut etre un probleme dans ma boucle?je ne sais pas?Merci de votre aide.
Je suis désolé j'ai essayé d'éditer ce message mais je n'ai pas reussi  

deja met un petit "use strict;" en haut de ton code!
 
ensuite je ne connais pas tethereal, mais il me semble que si tu ajoutait une petite pause apres le lancement de vlc ca pourrati aider:
 
 system (1,"vlc -vvv udp://$a" );  
 sleep 1;
 system ("tethereal -w m.pcap -S -c 50 -T text " );  
 
 
et si tu veux faire une pause inferieure à 1 sec, par exemple 0.5s, fais comme ca:
 
 system (1,"vlc -vvv udp://$a" );  
 select(undef,undef,undef,0.5);
 system ("tethereal -w m.pcap -S -c 50 -T text " );  

ok merci

c un sniffer non ethereal ?

oui tethereal est un sniffer