HTTP::Daemon et threads

Version imprimable

12/03/2008, 12h30
Seb_de_lille

HTTP::Daemon et threads

Hello,

J'essaye d'utiliser les modules HTTP::daemon et threads. Le thread principal attend les connexions. Une fois un client connecté, il transmet la connexion à un autre thread. Mais cela ne fonctionne pas, tout reste bloqué.

Pour moi, ça sent le deadlock. Y a t'il une solution? Si non, quel module puis-je utilisé en remplacement?

Merci.
12/03/2008, 13h01
iblis

Bonjour.

Cela va être difficile de t'aider si tu ne peux pas en dire plus (montrer un bout de code qui coince, par exemple).

Pour moi HTTP::Deamon (et IO::Socket) ont toujours fait ce que je demandais (mais je n'ai jamais essayé avec threads :mrgreen:)

Voila un exemple qui ne marche pas.

Code:

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
 
use HTTP::Daemon;
use HTTP::Status;
use threads;
 
my $webServer;
 
my $d = HTTP::Daemon->new(LocalPort => 3128);
 
print "Web Server started!\n";
 
 
while (my $c = $d->accept) 
{
    print("connexion\n");
    threads->create(\&process_one_req, $c)->detach();
}
 
sub process_one_req 
{
    my $c = shift;
    print("Thread demarré\n");
    my $r = $c->get_request;
    if ($r) 
    {
      print("coucou".$r."\n");
    }
    $c->close;
    undef($c);
}

le code reste bloqué sur le "my $r = $c->get_request;"