HTTP::Daemon：如何在 HTTP-Header 中为服务器设置自定义值？答案

【问题标题】：HTTP::Daemon: How to set a custom value for Server in HTTP-Header?HTTP::Daemon：如何在 HTTP-Header 中为服务器设置自定义值？
【发布时间】：2021-04-22 23:55:17
【问题描述】：

我正在使用 HTTP::Daemon 作为 HTTP 服务器。

use strict;
use warnings;
use HTTP::Daemon;

my $d = HTTP::Daemon->new (Listen => 1, LocalPort => 8080, ReuseAddr => 1, Blocking => 0) or die "error daemon: " . $!;
while (1)
{
    my $c = $d->accept ();
    if (defined ($c))
    {
        my $req = $c->get_request ();
        my $res = HTTP::Response->new (200);
        $res->header ("Server" => "MyServer");   # try to overwrite the internel builtin value
        $res->content ("OK");
        
        $c->send_response ($res);
        $c->autoflush ();
        undef ($c);
    }
    sleep (1);
}

我尝试覆盖服务器的 HTTP 标头条目。但是，我得到的只是第二个条目，其值为“MyServer”。

知道如何覆盖原始值“libwww-perl-daemon”吗？

有一个方法product_tokens获取值，但是不能设置值。

【问题讨论】：

“有一个方法product_tokens获取值，但是不能设置值。” - asdocumented“主要原因有这个方法是子类可以覆盖如果他们想使用另一个产品名称。”。因此，如果你想要一个不同的值，子类 HTTP::Daemon 并覆盖这个方法。

标签： perl http http-daemon

【解决方案1】：

文档说你应该创建一个子类：

=项目 $d->product_tokens

返回此服务器用于标识自身的名称。这是与 C 响应标头一起发送的字符串。这拥有这个方法的主要原因是子类可以覆盖它，如果他们想使用另一个产品名称。

默认是字符串“libwww-perl-daemon/#.##”，其中“#.##”是替换为该模块的版本号。

所以，你写了一个小子类，然后用你的子类来制作对象：

use v5.12;
package Local::HTTP::Daemon {
    use parent qw(HTTP::Daemon);

    sub product_tokens { 
        ... # whatever you want
        }
    }


my $d = Local::HTTP::Daemon->new( ... );

【讨论】：