Pagerank Checker

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

[ Hits: 5.312 ]

Homepage: http://rafaelmspc.cc

Download pagerankchecker.pl




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

Scripts recomendados

Synner Novo Sys(TCP) Flooder em Perl

Tweetin - Poste tweets pelo terminal

Iniciando desenvolvimento web ágil com Perl (Mojolicious)

Postando mensagem no Facebook com Perl

Upload de múltiplos arquivos para Imageshack.us


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts