CGI::Application用(デバッグ)サーバ

Perl

かぜぶろさんのとは異なり、
HTTP::Server::Simple::CGIで実装してみた。
しかし、HTTP::Server::Simple::CGIの使い方がよーわからんので、
なぜに動いてるかよくわかってません＾＾；

でも、動いたので↓ｺﾗﾏﾃ

CGI::Application::Plugin::Server.pm
ここではリクエストされるCGIがtest.cgiです。



package CGI::Application::Plugin::Server;

use strict;

use warnings;

use base qw(HTTP::Server::Simple::CGI);

sub handle_request {

    my ($self, $cgi) = @_;

    my $ret = `perl test.cgi`;

    print "HTTP/1.0 200 OK\r\n";

    print "$ret";

}

1;

サーバ起動PL
server.pl
ポート3001で起動させます。



#! /usr/local/bin/perl

use warnings;

use strict;

use lib './lib';

use CGI::Application::Plugin::Server;

my $server = CGI::Application::Plugin::Server->new('3001');

$server->run();

test.cgiの内容
CGI::Application::Dispatchを使ってます。



#! /usr/local/bin/perl

use strict;

use warnings;

use CGI::Application::Dispatch;

use lib './lib';

$| = 1;

CGI::Application::Dispatch->dispatch(

    PREFIX  => 'NekoAjax',

    DEFAULT => 'top',

    TABLE   => {

        top => 'Top',

        get => 'Get',

    },

);

コンソール上からserver.plを起動させて、ブラウザより
http://localhost:3001/にアクセスさせます。

とすると動きますた。

HTTP::Server::Simple::CGIの使い方わから〜ん。