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é.

• Download pagerankchecker.pl
• Enviar nova versão

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

Burlando o "Protetor de links" INVERTIDO para download grátis

Capturar imagens de um site

PDF completo com todas as páginas do Diário Oficial do Estado de Goiás

Upload de múltiplos arquivos para Imageshack.us

HAT Googler

Nenhum comentário foi encontrado.