Code · 2010-11-06

perl脚本检查网站的pagerank

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


[root@Centos perl]# perl pr.pl baiqiuyi.com
3

[root@Centos perl]# more pr.pl 
#!/usr/bin/perl -w
#用法为: perl pr.pl SomeDomain
#不用带http://
use strict;
use WWW::Google::PageRank;
my $url = $ARGV[0];
my $pr = WWW::Google::PageRank->new;
print scalar($pr->get('http://'.$url)), "\n";