perl脚本检查网站的pagerank

11月 6
小桥流水人家 Code 7 Comments

perl的命令行接受参数,用来检查网站的pr.
用到WWW::Google::PageRank模块,快速小巧!

  1. [root@Centos perl]# perl pr.pl baiqiuyi.com
  2. 3
  3.  
  4. [root@Centos perl]# more pr.pl
  5. #!/usr/bin/perl -w
  6. #用法为: perl pr.pl SomeDomain
  7. #不用带http://
  8. use strict;
  9. use WWW::Google::PageRank;
  10. my $url = $ARGV[0];
  11. my $pr = WWW::Google::PageRank->new;
  12. print scalar($pr->get('http://'.$url)), "\n";
, , ,
1 1