perl获取google pagerank

3月 26
Year 2012 小桥流水人家 Code
  1. [root@Nagios s]# more pagerank.pl
  2. #!/usr/bin/perl -w
  3. use strict;
  4. use WWW::Google::PageRank;
  5. my $u = $ARGV[0];
  6. my $p = WWW::Google::PageRank->new;
  7. if(!$ARGV[0]){
  8.     print "undefined!\n./$0 baiqiuyi.com\n";
  9. }else{
  10.     print "Google PR is ",scalar($p->get('http://'.$u)), "\n";
  11. }
  12. [root@Nagios s]# perl pagerank.pl
  13. undefined!
  14. ./pagerank.pl baiqiuyi.com
  15. [root@Nagios s]# perl pagerank.pl baiqiuyi.com
  16. Google PR is 2

因为前阵子其中一台linux服务器上的wordpress的站点全被挂了马，清理了一次没仔细查，这次全面检查了一下果然发现了个后门，但是来不及了 PR已经被降为2。
期间一次被Google列入会损害客户电脑的黑名单，导致PR由3变为了2我估计！
Google更新pageran后 我的博客pagerank=2
2009年4月3日 pagerank更新了

, Leave a comment

强帖留名: