问HTTP::Headers say
EN

Stack Overflow用户

提问于 2012-05-28 00:54:57

回答 1查看 137关注 0票数 0

下面是一个简单的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建议它是一个字符串。有人能解释一下这里到底是怎么回事吗？

perl

回答 1

Stack Overflow用户

回答已采纳

发布于 2012-05-28 21:26:36

错误似乎是软件没有正确地委托给Net::Server::TiedHandle的SAY方法，只是打印。我不知道如何修复这个问题。

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

文件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

票数 0

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/10775679

复制

相似问题

问HTTP::Headers say
EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问HTTP::Headers sayEN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问HTTP::Headers say
EN