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

原创于 2004-10-11 22:41:00 发布 · 1.9k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#cgi #buffer #文档 #user #网络

Linux Fans 专栏收录该内容

54 篇文章

订阅专栏

博客涉及CGI、Buffer等信息技术内容，与网络相关，可能围绕这些元素在网络环境中的应用、原理等方面展开，但因内容缺失无法明确更多关键信息。

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

CGI技术

CGI文档

2004-01-28

佳维网络

#!/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";
  }