一个程序自动刷新页面的例子

www.7dspace.com  更新日期：2005-8-17 2:47:38  七度空间

#!/usr/bin/perl

　use HTTP::Request;
　use LWP::UserAgent;
　my ＄ua = new LWP::UserAgent;
　＄|=1;
　print "content-type:text/html\n\n";
　＄ua->agent("AgentName/1.0 " . ＄ua->agent);
　＄ua->timeout(80);
　# Create a request
　my ＄req = new HTTP::Request POST => 'http://search.sina.com.cn/cgi-bin/search/search.cgi';
　＄req->content_type('application/x-www-form-urlencoded');
　my ＄buffer="ss=sina&_searchkey=%BB%EE%B6%AF%2B%BD%B1%CF%EE&_andor=and&s1=%CB%D1%CB%F7";
　＄req->content(＄buffer);
　# Pass request to the user agent and get a response back
　my ＄res = ＄ua->request(＄req);
　# Check the outcome of the response
　if (＄res->is_success) {
print length(＄res->content);
　 print <<END;
<META HTTP-EQUIV="Refresh" Content=1;Host="http://***.***.***.***/nperl/autorefresh.pl">

END
;
print ＄res->content ;
　　　
　} else {

　　print "bad luck";
　}

作者：  来源：七度空间 ( 责任编辑:7dspace )

【收藏此页】【打印】【关闭】