顺手写的代码。
用于自动提交自己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模块
拿回去试试。