perl如何找到http请求完成的时间

Question

我有一个表格要填写，提交后，它会返回结果。 现在，我想计算完成我的请求所花费的时间，即显示结果的时间-我点击提交的时间。

我不知道该怎么做。请随意使用任何模块。我不知道使用哪个参数来检查响应页面是否显示。我使用结果页面的阅读标题只是为了检查响应是否正确显示。

我的代码：

use WWW::Mechanize;
use LWP::UserAgent;
my $m = WWW::Mechanize->new();
$m->get( "http://en.wikipedia.org/wiki/Main_Page" );
$m->submit_form(
    form_number => 1,
    fields    => { search  => 'honey', },
    button    => 'go'  #my time1 should start at this moment
);
#my time 2 should be recorded as soon as result page is displayed, i dont know what to use to get this time
$tmp=$m->title;
print "$tmp\n";

Answer 1

您可以捕获提交请求时的时间，也可以使用时间函数在脚本中显示结果后立即捕获时间。然后两者的差异可以为您提供请求所需的时间。

否则，您也可以按照 Pathak 的建议尝试 WWW::Mechanize::Timed。

Answer 2

你可以使用WWW::Mechanize::Timed