Cher journal, j'essaye de créer un petit serveur en perl mais je n'arrive pas à lui faire assimiler que s'il y a quit tout seul, il doit s'arrêter et que ca doit être pareil pour tous ses forks.
Le code:
#!/usr/bin/perl
use IO::Socket;
my $value;
my $pid=0;
$serv = IO::Socket::INET->new(LocalPort => 3865,
Type => SOCK_STREAM,
Reuse => 1,
Listen => 10);
while($pid==0){
$pid=open FILS,"-|" if $client=$serv->accept();
}
while($client){
$client->send("Hello, World!\n","");
while(1){
$client->recv($value,10);
chomp $value;
last if($value=~m/quit/);
$client->send("Valeur:$value\n","") if($value);
}
last
(…)
