如何用perl模拟发送一个http请求,并拿到返回值。比如测试www.baidu.com这个网址 麻烦详细介绍下。

2025-05-08 22:58:52
推荐回答(1个)
回答1:

用模块吧:
use HTML::TokeParser;
use LWP::Simple qw(get);
use LWP::UserAgent;
$CheckR = "http://www.baidu.com";
$Result = get($CheckR);
print "$Result\n";
if ($Result){
$Result = $browser->post ($CheckR);
print "post is : \n$post";
}
把这两个值打出来看看。