Perl：LWP::UserAgent 对于重定向 URL 始终返回代码 200

发布于 2024-12-20 03:23:42 字数 477 浏览 2 评论 0原文

我有一个简单的 url，它执行 302 临时错误。移至另一页。

我尝试在 URL 返回代码 200（表示 OK）时检索它，并在返回 200 以外的其他内容时停止。

我的代码：

my $ua = LWP::UserAgent->new( env_proxy => 1,keep_alive => 1, timeout => 30, agent => "Mozilla/4.76 [en] (Win98; U)");
my $response = $ua->get( $currenturl);
print $response->code;

上面的代码总是返回 200，即使它是 302。我在 Firefox 中使用 FireBug 测试了标头响应。该 URL 在 FireBug 的 Net 模块中返回“302 Moved Temporarily”。但是上面的 perl 代码返回 200。为什么呢？

原文

I have a simple url which does a 302 temp. move to another page.

I try to get to if the URL returns code 200 (for OK) to retrieve it and to stop if something else than 200 is returned.

My code:

my $ua = LWP::UserAgent->new( env_proxy => 1,keep_alive => 1, timeout => 30, agent => "Mozilla/4.76 [en] (Win98; U)");
my $response = $ua->get( $currenturl);
print $response->code;

The code above ALWAYS returns 200, even if its 302. I tested the header response using FireBug in Firefox. The URL returns "302 Moved Temporarily" in the Net module in FireBug. But the code above in perl returns 200. Why?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

梦晓ヶ微光ヅ倾城 2024-12-27 03:23:42

LWP::UserAgent 自动遵循 HTTP 重定向。
您可以通过将 max_redirect 选项设置为 0 来禁用此类行为。

my $ua = LWP::UserAgent->new( max_redirect => 0, env_proxy => 1,keep_alive => 1, timeout => 30, agent => "Mozilla/4.76 [en] (Win98; U)");
my $response = $ua->get( $currenturl);
print $response->code;

LWP::UserAgent automatically follows HTTP redirects.
You can disable such behavior by passing max_redirect option set to 0.

my $ua = LWP::UserAgent->new( max_redirect => 0, env_proxy => 1,keep_alive => 1, timeout => 30, agent => "Mozilla/4.76 [en] (Win98; U)");
my $response = $ua->get( $currenturl);
print $response->code;

回复收藏 0 原文

~没有更多了~