HTTPサーバの作成（TCPサーバサンプル）:Geekなぺーじ

ここでは、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 "H