Discussion :

[matthieu5978]

Bonjour à toutes et tous

• :key.librenet.europnet.org 322 simple_bot #notabou 1 :[+ntrG] Bienvenue sur #notabou, chan hetero/gay/bi, ici on parle de tout et de rien tant que ca reste correct :p
  
  :key.librenet.europnet.org 322 simple_bot #burdigala 4 :[+ntrG] Bienvenue sur le salon de Bordeaux et de la Gironde. Vincent Delerm est à la chanson ce que le jogging est à l'élégance (moostik qui persiste et signe !). Les gens ne sont pas des Sims !!!!!!!!!
  
  :key.librenet.europnet.org 322 simple_bot #aide 16 :[+ntrSCTf] Bienvenue sur le salon D'AIDE AU CHAT (4nous ne reglons pas les problemes de ban). Posez votre question, attendez qu'on vous réponde, et sortez une fois votre demande satisfaite. 4L'aide concernant FREE/FREEBOX est sur #freebox . Le "camping" est interdit, merci
  
  :key.librenet.europnet.org 322 simple_bot #speedquizz 1 :[+ntG]

Comment extraire les noms des salons irc (souligné) dans le texte si-dessus. Sachant que c'est l'instruction "print $sock "LIST\r\n";" qui donne ce texte.

[djibril]

soit plus clair, utilise les balises codes et donne un exemple de ton programme.
Voilà, aprés ça on pourra t'aider (pense aux regex)!

[tfe]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
$les_donnees= ":key.librenet.europnet.org 322 simple_bot #notabou 1 :[+ntrG] Bienvenue sur #notabou, chan hetero/gay/bi, ici on parle de ";
 
my ($channel) = $les_donnees =~ /^:(?:\S+\s+){3}(\S+)/;
 
print "RES:  $channel\n";