Discussion :

[Mirelagord]

Bonjour,

J'ai actuellement un Bot irc qui ce connecte a un serveur unrealircd et je voudrez pouvoir le connecter par LINK pouvez vous m'aider S.V.P ?

Voici mon bout de code de connexion :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
sub connect() {
 
  $sock = new IO::Socket::INET(PeerAddr => $server,
			                    PeerPort => $port,
			                    Proto => 'tcp') or die "Can't connect\n";
 
  &command ("NICK $bot_nick");
  &command ("USER $bot_login 8 * :$bot_real_name");
 
  while (my $input = <$sock>) {
    $input = &chomp($input);
    print "> $input\n";
 
    if ($input =~ /004/) {
      last;
    }
    elsif ($input =~ /433/) {
      die "Nickname is already in use.";
    }
  }
 
}

[Jedai]

As-tu vraiment envie de gérer ta connexion IRC au plus bas niveau ? Utiliser un module comme AnyEvent::IRC::Client ou POE::Component::IRC::Client serait nettement plus efficace et agréable.

--
Jedaï

[Mirelagord]

Merci j'ai opter pour POE::Component::IRC et cela fonctionne impeccable !



Maintenant j'ai un petit problème que je voudrez résoudre comment faire récupérer un contenue :

Exemple : $nick affiche => dalid|dgfdgdfg

Je veut vérifier ci il y a un | et ci oui et bien je veut récupérer ce qui ce trouve avant | .

Comment faire ?

[iblis]

Teste et capture avec une regex.

Code :

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

$data = $1 if $nick =~ /^(\w+)|/;

En cas de besoin, tu peux jeter un oeil à la section de la FAQ sur les regex.

[Mirelagord]

Merci beaucoup cela fonctionne impeccable !