[Perl脚本]Ping Google的Perl片段

作者：路杨 发布于 2006-10-27 16:06
版权声明：可以任意转载,但请务必以超链接形式标明文章原始出处、作者信息及本版权声明。
本文地址：https://easun.org/blog/archives/sitemap_google_ping.html

顺手写的代码。
用于自动提交自己Website SiteMap的修改到Google，是这里("[Perl脚本]Perl写的生成 Google SiteMap 的小程序")的附加而已。
详细Perl程序如下：

#!/usr/bin/perl -w
use CGI();
my $cgi= new CGI;
use CGI::Carp qw(fatalsToBrowser); #打开浏览器查错模式

my pingurl='http://www.google.com/webmasters/sitemaps/ping?sitemap=http%3A%2F%2Feasun.org%2Fsitemap.xml';
print $cgi->header;
print "Now Ping Google....\n";
print &pingit($pingurl);
exit();

sub pingit # sub by Easunlee
{
my $url=shift;
require LWP::UserAgent;
require HTTP::Request;
my $ua = LWP::UserAgent->new;
$ua->max_size(undef) if $ua->can('max_size');
my $req = new HTTP::Request(GET => $url);
my $resp = $ua->request($req);
return 'Error to ping...' unless $resp->is_success();
my $result = $resp->content();
$result;
}

建议和这里的 Perl 脚本写在一起。用户自动提交修改过的sitemap.xml到Google。

注意：
本脚本需要LWP::UserAgent 和 HTTP::Request 模块的支持才能运行。
请保证你的服务器支持这两个Perl模块

Categories:

Tags:

--EOF--