Pagerank Checker
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é.
Até.
Descrição
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é.
Até.
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";
}