获取响应会在LWP中返回原始页面

Question

我正在尝试提交表单，但不填写任何内容并获取响应页面。

#!/usr/bin/perl -w

use LWP::UserAgent;
use HTTP::Request::Common;

$ua= LWP::UserAgent->new;
$req= POST('http://polling.newspoll.com.au/cgi-bin/polling/display_poll_data.pl?url_caller=&mode=trend&page=show_polls&question_set_id=4');

$res= $ua->request($req);
print $res->content;

但是我只是得到原始页面（带有表单）而不打印响应。 我究竟做错了什么？

编辑：这只是找到正确的参数传递给页面的问题。 为了弄清楚这一点，我在结果页上使用了Chrome开发者工具，然后依次转到“网络”标签和标题。 向下滚动一点，您将找到页面提供的所有表单参数。 感谢amon为我指出正确的方向。

Answer 1

POST帮助程序不使用包含查询参数的完整URL。 您应该在arrayref中提供它们，例如：

my $req = POST('http://www.example.com', [ foo => 42, bar => 'baz' ]);

…如docs所示。

您还应该注意，POST参数不会作为查询参数传输到URL内，而是在POST请求的主体内传输。 尽管某些软件（例如CGI）提供了抽象化差异的接口，但其他软件可能没有。

另请注意，所有Perl脚本均应use strict; use warnings; use strict; use warnings; 。

您还应该考虑的另一件事是，通过测试is_success并使用decoded_content方法来进行正确的错误处理，该方法负责传输编码。

$res->is_success
  or die $res->status_line;

print $res->decoded_content;

---

编辑

我分析了源代码，并得出以下结果（ 自动生成 ）：

我在http://polling.newspoll.com.au/cgi-bin/polling/display_poll_data.pl查看了页面的来源，该表格具有以下<input> ：

• <input name="url_caller" type="hidden" value="" />
• <input name="mode" type="hidden" value="file" />
• <input name="page" type="hidden" value="Search" />
• <input name="keywords" type="text" />
• <input name="show" type="text" />
• <input src="/images/search_button.jpg" type="image" />

以及以下<select>组：

• <select name="from_date_month"></select>带有值(1 .. 12)
• <select name="from_date_year"></select>带有值的值(1998 .. 2013)
• <select name="to_date_month"></select>带有值(1 .. 12)
• <select name="to_date_year"></select>及其值(1998 .. 2013)
• <select name="keytype"></select>带有值("all", "any")
• <select name="state"></select>的值("Any", "FEDERAL", "ACT", "NSW", "NT", "QLD", "SA", "TAS", "VIC", "WA")

此外，还提供带有以下查询的链接：

• ?url_caller=latest&state=Any&mode=file&page=Search
• ?mode=trend&page=select_category

这意味着脚本还响应GET请求

我在http://polling.newspoll.com.au/cgi-bin/polling/display_poll_data.pl?url_caller=&mode=trend&page=show_polls&question_set_id=4查看了页面的源代码，并且该表单具有以下<input> s ：

• <input name="url_caller" type="hidden" value="trend" />
• <input name="show" size="5" type="text" />
• <input name="mode" type="hidden" value="trend" />
• <input name="question_id" type="hidden" value="2403" />
• <input name="page" type="submit" value="Display Results" />
• <input name=".cgifields" type="hidden" value="to_date_year" />
• <input name=".cgifields" type="hidden" value="to_date_month" />
• <input name=".cgifields" type="hidden" value="from_date_month" />
• <input name=".cgifields" type="hidden" value="to_date_day" />
• <input name=".cgifields" type="hidden" value="from_date_year" />
• <input name=".cgifields" type="hidden" value="from_date_day" />

以及以下<select>组：

• <select name="from_date_day"></select>的值为(1 .. 31)
• <select name="from_date_month"></select>的值为(0 .. 12)
• <select name="from_date_year"></select>及其值("Any Year", 1970 .. 2013)
• <select name="to_date_day"></select>的值为(1 .. 31)
• <select name="to_date_month"></select>的值为(0 .. 12)
• <select name="to_date_year"></select>及其值("Any Year", 1970 .. 2013)

此外，还提供带有以下查询的链接：

• ?url_caller=trend
• ?url_caller=trend&mode=trend&page=show_polls&question_set_id=4
• ?mode=trend&page=continue_results&question_id=2403&url_caller=trend

这意味着脚本还响应GET请求

您正在[url_caller => '', mode => "trend", page => "show_polls", question_set_id => 4]中使用字段[url_caller => '', mode => "trend", page => "show_polls", question_set_id => 4] 。 例如，字段question_set_id不存在。 值show_polls是不存在的page 。

隐藏的字段不应更改，而应在预填充时重新提交。 对于select离子，从提供的列表中选择有效的参数。 对于文本输入，请根据上下文提供合理的值。