Wireshark抓包看:
> -my $response=$browser->post($url, ['q'=>'perl',], );
> +my my $response=$browser->post("$url" . '/s?wd=perl' );
不好意思写错了,第二行应该是
+my my $response=$browser->get("$url" . '/s?wd=perl' );
--
You should be the change you wish to see in the world
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖,请发电子邮件到 perlchina@googlegroups.com
要退订此论坛,请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---
没有评论:
发表评论