[kansaipm] 始めまして
片松 祐司
yuji.katamatsu at toppan.co.jp
Thu Jun 22 05:00:38 CDT 2000
片松@凸版印刷 です
始めまして。いつもROMさせてもらってました。
突然ですが、お力になっていただけないでしょうか?
動作環境
Win95(4.00.950)
ActivePerl 5.003_07
InternetExplore4.0(4.72.3110.8)
で、このメールの最後にあるソースを、DOS窓で走らせて、
IEで127.0.0.1にアクセスさせます。
DOS窓でHTTPのリクエストを読み込んで表示、
その後"HTTP/1.1 204"を返してブラウザはそのまま
という動作を期待していました。
ところが、最初の一行
GET…しか読めません。
どうしてなのか教えていただきたいのです。
よろしくお願いします。
(ここからソース)
use IO::Socket;
use IO::Select;
$sv_port=80;
$lsn = IO::Socket::INET->new(
LocalAddr => 'localhost',
LocalPort => $sv_port,
Proto => 'tcp',
Listen => 1,
Reuse => 1,
);
$sel = IO::Select->new($lsn);
while(1) {
if (@active = $sel->can_read(1)) {
foreach $fh (@active) {
if ($fh eq $lsn) {
$new = $lsn->accept;
$sel->add($new);
}
elsif ($read = <$fh>) {
print $read;
}
else {
print $fh "HTTP/1.1 204 NoDocuments\n\n";
$fh->flush();
$sel->remove($fh);
$fh->close;
}
}
}
}
--
片松 祐司 (Yuji Katamatsu)
E-mail: yuji.katamatsu at toppan.co.jp
More information about the Kansai-pm
mailing list