Pagerank Checker [Perl]

Pagerank Checker

Publicado por rafaelmspc (última atualização em 01/12/2010)

[ Hits: 5.269 ]

Homepage: http://rafaelmspc.cc

Download pagerankchecker.pl

0 0

Denuncie Favoritos Indicar

Script simples que informa o pagerank do site solicitado, tem a opção de carregar um arquivo de texto contendo vários sites e fazer uma verificação em massa. Script usa o módulo WWW::Google::PageRank.

Até.

Esconder código-fonte

use WWW::Google::PageRank;
system('clear');
printf "                    by papaismurf                      \n";
printf "  .g8bgd            http://papaismurf.net   MM          \n";
printf ".dP'      M                                 MM          \n";
printf "dM'           ,pWWq.   ,pW Wq.   .PYbmmm    MM .gPYa  \n";
printf "MM           6W     Wb 6W     Wb :MI  I8    MM ,M'   Yb \n";
printf "MM.     7MMF'8M     M8 8M     M8  WmmmP     MM 8MgpyaM \n";
printf "`Mb.     MM  YA.   ,A9 YA.   ,A9 8M         MM YM.    , \n";
printf "  ` bmmmdPY   `Ybmd9'   `Ybmd9'   YMMMMMb .JMML.`Mbmmd' \n";
printf "                                 6'     dP              \n";
printf "   --PageRank Checker--          Ybmmmd' \n";
printf "                     \n";
printf "Digite: 1 - Apenas um site\n\t2 - Mass Checker\n";
$opcao=<STDIN>;
if ( $opcao == 1){
printf "Digite o site que deseja verificar o PageRank\nEx:http://www.papaismurf.net\n";
my $site=<STDIN>;
chomp($site);
my $pr = WWW::Google::PageRank->new;
my $rank = $pr->get("$site");
printf "Site\t\t\tPageRank\n";
printf "$site\t$rank\n";
}elsif ( $opcao == 2 ){
printf "Digite o caminho onde esta o arquivo contendo os sites\nEx:/home/smurf/arquivo.txt\n";
$arquivo=<STDIN>;
chomp($arquivo);
open(DAT, $arquivo) || die("O arquivo não pode ser aberto"); 
@listausuarios=<DAT>; 
close(DAT);  
printf "Site\t\t\tPageRank\n";
foreach $site (@listausuarios) 
{
chomp($site);
my $pr = WWW::Google::PageRank->new;
my $rank = $pr->get("$site");
printf "$site\t$rank\n";
}
}else {
printf "Opção inválida\n";
}