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() . "
"; # <- this works
  # say $header->as_string() . "
"; # <- 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>";
}

我假设通过使用比如，我可以绕过添加换行符的问题，但我必须添加它，它通过在每个HTTP字段中添加另一个换行符来破坏HTTP:：Headeras_strings建议它是一个字符串。有人能解释一下这里到底发生了什么吗？

Answer 1

这个bug似乎是软件没有正确地委托给Net:：服务器：：绑定句柄的SAY方法，仅用于打印。我不知道如何修复此问题。

我建议您使用Plack用于Web应用程序。

fileapp.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

友情链接