perl脚本检查网站的pagerank

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";

2009年4月3日 pagerank更新了

距上次1月1日更新后,都整整3个月了,前两天看我的pagerank有3啦,暗自高兴一下!
您的pr升了没?

Google更新pageran后 我的博客pagerank=2

昨天打开我的博客,也是2008年的最后一天~
估计是Google更新PageRank了~我的博客
小桥流水人家的PageRank也有2了~
虽然只是小小的一个更新,但是我却无比的高兴!因为PageRank越高,预示越着被Google所重视~
谢谢各位一直以来关注我的小博~
谢谢你们,谢谢!

结婚后大家看起来都很忙

结婚后这几天都比较忙,带着澳门来的亲戚到厦门各处转转,看看这些年厦门的变化,感受这和谐社会所有的进步~
早晨出门,一天都在外面,回到家里都很晚了,有时候再到叔叔阿姨家坐一下,大家聚一下喝点小酒,回来就更困了,所以这两天也没时间写博客~
今天31号,2008年的最后一天,结婚的前些天有个公司在招聘linux系统管理员,结果投了简历却没时间去面试,昨天上人才网上看到他们公司还在招,就顺便再投了一次,结果当天晚上6点半就来电话了,可惜我没听到,想要回电话过去,结果酒喝了一下就全忘记了 -_-!
今天早上9点半那家公司打电话来,让我下午去面试,我想也没什么事,就去看看~
结果面试了一下,自我感觉还不错,毕竟谈的东西比较广,面试官也不全懂,不过面试官问我的冗余与负载均衡跟邮件服务器的一些东西我没答好,我看他应该会一点,所以没敢瞎掰~老实说我还没接触过~说是1月4号前给我答复,如果这新公司价钱给得差不多的话,我就去…毕竟没社保医保呀新公司~(厦门这分公司9月份刚成立,说1月份以后开始跟总公司申请,说是这么说,谁知道是真是假…)
看到好多朋友来留言,都回复晚了,希望你们见谅~谢谢一直关注我博客的这些朋友!
Read more »

1 1