“得到”不在 Perl 中工作

Question

我是 Perl 新手。在过去的几天里，我制作了一些简单的脚本，通过“get”将网站的源代码保存到我的计算机上。他们做了他们应该做的事情，但不会获得论坛网站的内容。非论坛网站工作得很好。 知道发生了什么事吗？这是问题块：

my $url = 'http://www.computerforum.com/';
my $content = get $url || die "Unable to get content";

Answer 1

http://p3rl.org/LWP::Simple#get：

get() 函数将获取由给定 URL 标识的文档并返回它。如果失败则返回 undef。 [...]

当您使用此功能访问网络时，您将无法检查响应代码或响应标头（如“Content-Type”）。如果您需要该信息，您应该使用完整的 OO 接口（请参阅 LWP::UserAgent）。

您确实需要更好的错误报告，请切换到 LWP::UserAgent 库。我怀疑论坛软件阻止了 LWP 用户代理。