cpan

鐃緒申鐃緒申縫鐃緒申鵐好僖鐃緒申笋居申鐃銃￥申

Python 鐃緒申 Twisted 鐃叔わ申鐃淳にわ申颪韻鐃� Web 鐃緒申鐃緒申鐃緒申
誰鐃叔わ申鐃緒申鐃重�鐃緒申単鐃緒申 Web 鐃緒申鐃緒申鐃出わ申颪�わ申鐃夙わ申鐃叔緒申砲鐃緒申鐃塾わ申 Python 鐃緒申 Twisted 鐃夙わ申鐃緒申鐃春レー鐃緒申錙種申鐃緒申鐃緒申塙腓誌申任鐃緒申鐃�

Pure Perl鐃叔書かれたWeb Server鐃熟わ申鐃曙こ鐃緒申鐃緒申鐃循どわ申鐃緒申里任鐃緒申鐃緒申鐃緒申造鐃�LWP鐃祝もサ鐃緒申鐃出￥申鐃緒申鐃獣縁申房鐃緒申鐃緒申鐃緒申鐃�Module鐃緒申鐃術意わ申鐃緒申討鐃緒申董鐃緒申鐃緒申譴�HTTP::Daemon鐃叔わ申鐃緒申

鐃純え鐃出￥申鐃瞬ラウ鐃緒申鐃塾リク鐃緒申鐃緒申鐃夙をおわ申鐃緒申鐃瞬わ申鐃祝わ申鐃暑サ鐃緒申鐃出￥申鐃熟￥申鐃淑駕申鐃塾とわ申鐃緒申箸覆鐃殉わ申鐃緒申

#!/usr/local/bin/perl -T
use strict;
use warnings;
use HTTP::Daemon;
use HTTP::Date;

my $d = HTTP::Daemon->new(
    LocalAddr => '0.0.0.0',
    LocalPort => shift || 8080
) or die $!;

while ( my ( $c, $peer_addr ) = $d->accept ) {
    while ( my $req = $c->get_request ) {
        my $header = HTTP::Headers->new( 'Content-Type' => 'text/plain' );
        my $res = HTTP::Response->new( 200, 'OK', $header, $req->as_string );
        $c->send_response($res);
        print_log($peer_addr, $req, $res);
    }
    $c->close;
    undef($c);
}

# you don't need this unless you need logging
sub print_log {
    use Socket qw/sockaddr_in inet_ntoa/;    # to deparse $peer_addr
    use bytes ();                            # for length
    my ( $peer_addr, $req, $res ) = @_;
    my ( $port, $iaddr ) = sockaddr_in($peer_addr);
    my $remote_addr = inet_ntoa($iaddr);
    my $remote_user = $req->headers->authorization_basic || '-';
    $remote_user =~ s/:.*//o;
    printf qq(%s %s - [%s] "%s %s %s" %d %d\n), 
        $remote_addr, $remote_user, time2str( time() ),
         $req->method, $req->url, $req->protocol,
         $res->code, bytes::length( $res->content );
}
__END__

鐃緒申鐃�stdout鐃緒申Common Log鐃緒申鐃叔わ申鐃処う鐃祝書きまわ申鐃緒申鐃緒申鐃緒申log鐃緒申鐃緒申鐃緒申鐃竣なわ申print_log()鐃緒申鐃緒申鐃竣なので￥申20鐃緒申未鐃緒申鐃緒申Web Server鐃塾緒申鐃緒申紊�鐃緒申任鐃緒申鐃�

鐃緒申鐃緒申鐃緒申鐃�HTTP::Daemon鐃夙わ申鐃緒申名鐃緒申鐃緒申反鐃緒申鐃銃￥申鐃竣ワ申鐃緒申鐃緒申鐃緒申daemon鐃緒申鐃緒申鐃緒申鐃緒申泙任呂鐃緒申討鐃緒申鐃淑わ申鐃塾で￥申鐃旬鰹申的鐃緒申Web Server鐃緒申颪�なわ申Cookbook鐃緒申鐃緒申17鐃熟を参考にわ申鐃緒申鐃所、POE鐃緒申箸鐃緒申覆蠅刻申鐃駿わ申鐃叔わ申鐃緒申鐃緒申鐃春鰹申鐃淑とわ申鐃緒申鐃祝わ申鐃緒申鐃緒申鐃緒申鐃緒申討鐃緒申鐃緒申鐃夙わ申鐃緒申HTTP::Daemon鐃緒申鐃緒申紊駕申鐃緒申鐃緒申鐃叔わ申鐃緒申

Enjoy!

Dan the Daemon