[kansaipm] 始めまして

[片松 祐司]

片松＠凸版印刷 です

始めまして。いつもＲＯＭさせてもらってました。
突然ですが、お力になっていただけないでしょうか？

動作環境
Win95（4.00.950）
ActivePerl 5.003_07
InternetExplore4.0（4.72.3110.8）
で、このメールの最後にあるソースを、DOS窓で走らせて、
ＩＥで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