“get”在 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 用户代理。