Bonjour à tous,

Je suis actuellement en train de tester les threads en Perl et pour être sincère, j'ai du mal.

Je me suis basé sur un bot IRC basique :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
#!/usr/local/bin/perl -w
use IO::Socket;
use strict;
use threads;
my $server = "irc.blabla.org";
my $nick = "blabla";
my $login = "blabla";
my $channel = "#jesaispas";
my $socket = new IO::Socket::INET(PeerAddr => $server,
                                PeerPort => 6667,
                                Proto => 'tcp') or die "bref\n";
print $socket "NICK $nick\r\n";
print $socket "USER $login 8 * :$login\r\n";
print $socket "JOIN $channel\r\n";
 
my $thread1 = threads->new(\&pingpong);
my $thread2 = threads->new(\&attendre);
$thread1->join;
$thread2->join;
 
sub pingpong {
  while (my $input = <$socket>) {
    chomp($input);
    chop ($input);  
    if ($input =~ /^PING(.*)$/i) {
          print $socket "PONG $1\r\n";
       }
    else {
          print "$input\n";
       }
   }
}
 
sub attendre {
  while (1) {
    print $socket "PRIVMSG $channel :!message\n";
    sleep 10;
  }
}
Du coup je souhaite lancer mes deux fonctions en même temps pour que le bot ne se fasse pas déconnecté par le serveur tout en affichant un message toutes les x secondes.
De cette manière, ça ne fonctionne pas super bien, j'ai des messages qui arrivent sur le canal IRC de façon aléatoire.

Une idée pour résoudre le problème ?

Par avance, merci et bonne soirée.