URL: https://linuxfr.org/users/yann012/journaux/d%C3%A9butant-en-programmation-serveur--2
Title: Débutant en programmation serveur.
Authors: Yann012
Date: 2004年05月29日T18:49:49+02:00
Tags: 
Score: 0
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 if($value=~m/quit/); 
} 
close($serv); 
 
 
 
 
Avec m/^quit$/ , il prend pas en compte la commande quit et si je lance deux connections au serveur, la première peut quitter avec quit mais pas la deuxième :( ...
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="httpS://linuxfr.org/users/yann012/journaux/d%C3%A9butant-en-programmation-serveur--2.md">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="httpS://linuxfr.org/users/yann012/journaux/d%C3%A9butant-en-programmation-serveur--2.md" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>