Pagerank Checker
Publicado por rafaelmspc (última atualização em 01/12/2010)
[ Hits: 5.312 ]
Homepage: http://rafaelmspc.cc
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é.
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"; }
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
Nenhum comentário foi encontrado.
Como gerar um podcast a partir de um livro em PDF
Automatizando digitação de códigos 2FA no browser
Resolver problemas de Internet
Como compartilhar a tela do Ubuntu com uma Smart TV (LG, Samsung, etc.)
Como Instalar o Microsoft Teams no Linux Ubuntu
Músicas de Andrew Hulshult no DOOM (WAD)
Instalar o Apache, MySQL e PHP no Oracle Linux 8
Bloqueando telemetria no Deepin 23.1
Como converter imagens PNG/JPEG para SVG em linha de comando