perl脚本检查网站的pagerank

11月 6
Year 2010 小桥流水人家 Code

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";
, , , Leave a comment

7 Comments

  1. 我爱打扮网 On 11月 28th, 2012 / #1 Reply

    其实就是利用了WWW::Google::PageRank这个模块，挺不错的模块，对站长非常有用。

  2. sangoma On 11月 10th, 2010 / #2 Reply

    现在的pr乱来了、我4的排不过2的、真不知道百度怎么搞的

  3. Firm On 11月 9th, 2010 / #4 Reply

    PR控站长适用。。

  4. impact wrench On 11月 8th, 2010 / #6 Reply

    pr值不是通过站长工具查的么。。