Net::Server

NAME Net::Server - Extensible, general Perl server engine SYNOPSIS #!/usr/bin/perl -w -T package MyPackage; use base qw(Net::Server); sub process_request { my $self = shift; while (<STDIN>) { s/[\r\n]+$//; print "You said '$_'\015\012"; # basic echo last if /quit/i; } } MyPackage->run(port => 160, ipv => '*'); # one liner to get going quickly perl -e 'use base qw(Net::Server); main->run(port => 20

[kdaiba]

POEの跡継ぎ？