如何从 HTTP::Daemon 获取方法

Question

如何找到HTTP::Daemon 模块中的$code 和$mess？在 cpan 中的用法是

$c->send_status_line( $code, $mess, $proto )

但我不知道从哪里/如何获得$code、$mess。

例如，send_error($code) 用作send_error(RC_FORBIDDEN)，这是我从网上某人的代码中找到的，他从哪里得到RC_FORBIDDEN？ 一直在玩下面的代码。很抱歉格式化，非常感谢@choroba 为我格式化。

    use warnings;
    use strict;
    use HTTP::Daemon;
    use HTTP::Status;
    use LWP;

    my $daemon = HTTP::Daemon->new or die;
    my $d = HTTP::Daemon->new(
    LocalAddr => '0.0.0.0',
    LocalPort => '5000',
    );
    printf ("\n\n   URL of webserver is %s, show this script with %stest\n", 
    $d->url, $d->url);

    while (my $client_connection = $d->accept)  
            {
                new_connection($client_connection);
            }
    sub new_connection 
    { 
    my $client_connection = shift;
    printf "new connection\n";
    while (my $request = $client_connection->get_request) 
    {
        if (my $pid = fork)
            {
                print "Child created : $pid\n";
            }
        elsif (!defined $pid)
            {
                die "Cannot fork $!\n";
            }
        else
            {
                my $address_of_client = $client_connection->peerhost();
                my $port_of_client = $client_connection->peerport();
    print "Connection from client $address_of_client on port 
    $port_of_client\n";
                print "  request\n";
                    if ($request->method eq 'GET' and $request->uri->path 
    eq "/test") 
                        {
                            $client_connection->send_file_response(RC_OK);
                            #$client_connection->send_status_line(200);
                            #print "OK ";
                            #$client_connection->send_file_response($0);
                        }
                    else 
                        {
                            $client_connection->send_error(RC_NOT_FOUND);
                        }
            }
    $client_connection->close;
    } 
   }

Answer 1

文档还说明

如果省略$code，则假定为 200。如果省略$mess，则插入与$code 对应的消息。如果$proto 缺失，则使用$HTTP::Daemon::PROTO 变量的内容。

因此，您根本不必指定参数。否则，只需将任何可能的HTTP status codes 用于$code，或者不指定$mess 以获取代码的默认消息，或者使用您喜欢的任何消息。

RC_FORBIDEN 是从HTTP::Status 导出的。