返回列表 回复 发帖

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

作者:小歪歪
日期:2001-1-12 15:49:23
  1. #!/usr/bin/perl
  2.   use HTTP::Request;
  3.   use LWP::UserAgent;
  4.   my $ua = new LWP::UserAgent;
  5.   $|=1;
  6.   print "content-type:text/html\n\n";
  7.   $ua->agent("AgentName/1.0 " . $ua->agent);
  8.   $ua->timeout(80);
  9.   # Create a request
  10.   my $req = new HTTP::Request POST => ';http://search.sina.com.cn/cgi-bin/search/search.cgi';;
  11.   $req->content_type(';application/x-www-form-urlencoded';);
  12.   my $buffer="ss=sina&_searchkey=%BB%EE%B6%AF%2B%BD%B1%CF%EE&_andor=and&s1=%CB%D1%CB%F7";
  13.   $req->content($buffer);
  14.   # Pass request to the user agent and get a response back
  15.   my $res = $ua->request($req);
  16.   # Check the outcome of the response
  17.   if ($res->is_success) {
  18. print length($res->content);
  19.    print <<END;
  20. <META HTTP-EQUIV="Refresh" Content=1;Host="http://***.***.***.***/nperl/autorefresh.pl">
  21. END
  22. ;
  23. print &#36;res->content ;
  24.   
  25.   } else {
  26. print "bad luck";
  27.   }
复制代码
——————以下内容由Cnangel2005年08月25日 07:59pm时添加———————

    不怎么高明,Perl是写socket的高手,为什么不用呢?

                     我是一个呼吸着现在的空气而生活在过去的人
               这样的注定孤独,孤独的身处闹市却犹如置身于荒漠
                                     我已习惯了孤独,爱上孤独
                                 他让我看清了自我,还原了自我
                             让我再静静的沉思中得到快乐和满足
                                   再孤独的世界里我一遍又一遍
                                   不厌其烦的改写着自己的过去
                                             延伸到现在与未来
                                       然而那只是泡沫般的美梦
                                 产生的时刻又伴随着破灭的到来
                         在灰飞烟灭的瞬间我看到的是过程的美丽
                                      而不是结果的悲哀。。。
返回列表