Question

这是Net :: Server :: HTTP

的简单脚本

#!/usr/bin/env perl

use strict;
use warnings;

use v5.12;

use HTTP::Headers;

use base qw(Net::Server::HTTP);
__PACKAGE__->run(port => 'localhost:8421');

sub process_http_request
{
  my ($self) = @_;
  my $header = HTTP::Headers->new();

  $header->content_type('text/html');

  print $header->as_string() . "\n"; # <- this works
  # say $header->as_string() . "\n"; # <- this doesn't work and I still have to add a newline

  say "<!doctype html>";
  say "<html>";
  say "<head>";
  say "  <title>Test</title>";
  say "</head>";
  say "<body>";
  say "<h1>Test</h1>";
  say "</body>";
  say "</html>";
}

我认为通过使用say我可以添加换行符，但我必须添加它并通过向每个HTTP字段添加另一个换行符来打破HTTP::Header因为as_string表明它是一个字符串。有人可以解释一下这里到底发生了什么吗？

Answer 1

该错误似乎是软件没有正确地委托给Net::Server::TiedHandle的SAY方法，只是PRINT。我不知道如何修复它。

我建议您使用Plack代替您的Web应用程序。

档案app.psgi：

my $html = <<'HTML';
<!doctype html>
<html>
<head>
<title>Test</title>
</head>
<body>
<h1>Test</h1>
</body>
</html>
HTML

my $app = sub {
    return [200, [Content_Type => 'text/html'], [$html]];
};

命令行：

plackup --port 8421

HTTP ::标题说

1 个答案: