Bot Service Irc

Version imprimable

Bot Service Irc

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:

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.";
    }
  }
 
}

24/11/2008, 03h23
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ï
25/11/2008, 00h54
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 ?
25/11/2008, 13h32
iblis

Teste et capture avec une regex.

Code:

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

En cas de besoin, tu peux jeter un oeil à la section de la FAQ sur les regex.
25/11/2008, 13h39
Mirelagord

Merci beaucoup cela fonctionne impeccable !