如何获取$cgi->state以在http::server::simple下返回有意义的信息?

首先,这里是我正在使用的代码(您需要0.42版本的 HTTP::Server::Simple 运行它):

#!/usr/bin/perl
package My::HTTP::Server;

use strict; use warnings;
use parent 'HTTP::Server::Simple::CGI';

sub handle_request {
    my $server = shift;
    my ($cgi) = @_;

    print $cgi->header('text/plain'), $cgi->state, "\n";
}

package main;
use strict; use warnings;

my $server = My::HTTP::Server->new;

$server->cgi_class('CGI::Simple');
$server->cgi_init(sub {
    require CGI::Simple;
    CGI::Simple->import(qw(-nph));
});

$server->port(8888);
$server->run;

当我启动服务器并浏览到 http://localhost:8888/here/is/something?a=1 ,我得到输出 http://localhost:8888E:\Home\Src\Test\HTTP-Server-Simple\hts.pl/here/is/something?a=1 . 那是因为 CGI::Simple 看 $0 如果 $ENV{SCRIPT_NAME} 为空或未定义。所以,我想解决办法是写:

$server->cgi_init(sub {
    $ENV{SCRIPT_NAME} = '/';
    require CGI::Simple;
    CGI::Simple->import(qw(-nph));
});

现在,我得到的输出是 http://localhost:8888//here/is/something?a=1 . 注意额外 / .

这样可以吗?还是有更好的方法来解决这个问题?

我正在尝试编写一个可以作为 mod_perl Registry Script 或独立应用程序。