| 一个程序自动刷新页面的例子 |
|
作者：未知 文章来源：网海之贝 点击数： 更新时间：2004-8-17 10:49:56  |
#!/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";
} |
| 文章录入：admin 责任编辑：admin |
|
上一篇文章： 一个例子
下一篇文章： CGI安全漏洞资料速查v1.0 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
用户登录 
新用户注册 
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
