HTTPサーバの作成（TCPサーバサンプル）
ここでは、Perlを使ったサーバの例としてインチキHTTPサーバを作ってみたいと思います。 HTTPは日ごろ良く使っていて、馴染みも深いと思います。 手元のWebブラウザと接続できるサーバを作ると、何となくサーバを作る感覚がわかりやすいかなぁと思ったのでHTTPサーバを選んでみました。
HTTPサーバサンプル
以下にインチキHTTPサーバを示します。
#!/usr/bin/perl
use IO::Socket;
$sock0 = new IO::Socket::INET(Listen=>5,
LocalAddr=>'localhost',
LocalPort=>80,
Proto=>'tcp',
Reuse=>1);
die "IO::Socket : $!" unless $sock0;
$sock = $sock0->accept();
<$sock>;
print $sock "HTTP/1.0 200 OK\r\n";
print $sock "Content-Type: text/html\r\n";
print $sock "Content-Length: 7\r\n";
print $sock "\r\n";
print $sock "HELLO\r\n";
close($sock);
close($sock0);
exit;
折角なので、作成したHTTPサーバをIEで見てみたいと思います。 IEで「http://127.0.0.1/」を開くと以下のようになります。
