一个程序自动刷新页面的例子（例如搜新浪小人）

一个程序自动刷新页面的例子（例如搜新浪小人）

CGI技术 CGI文档 2004-01-28 佳维网络

<script src="../../js/ads_3_1.js"></script> #!/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";   }