新しいblogに移行しました

新ブログ "All Yout Bugs Are Belong To Ass" に移行しました!

2008-06-14

[Perl]HTTP::Server::Brickがエロい

こんな汚いソースでもきちっとサーブしてくれる、献身的なHTTP::Server::Brickタソに、オイラゾッコンですよ。



use warnings;
use strict;

use HTTP::Server::Brick;

my $server = HTTP::Server::Brick->new( port => 7777 );

my $html = << ''
<html>
<head>
<title>コレはテストです!</title>
<head>
<body>
<h1>HTTP::Server::Brickはすげえ!</h1>
<hr>
<p>いやまじんこすげえ!</p>
</body>
</html>

$server->mount('/' => {
handler => sub {
my ( $req, $res ) = @_;
$res->header('content_type','text/html; charset=euc-jp');
$res->add_content($html);
1;
},
wildcard => 1
});

$server->start;


で、見ると、

こんな感じになる。
あたりまえの事をそつ無くこなすところとか、依存パッケージが馬鹿に少ないところとか、とにかくシンプルなところとか、mod_perlに載せやすいとか、色々萌え要素が多すぎて、いろんな意味で成人指定な感じがしましたよお兄さん!