Pagerank Checker
Publicado por rafaelmspc (última atualização em 01/12/2010)
[ Hits: 5.329 ]
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"; }
API do Bing para traduzir textos
Burlando o "Protetor de links" INVERTIDO para download grátis
Descubra se seu e-mail ou conta foi "pwned"
Nenhum coment�rio foi encontrado.
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Como instalar o Google Cloud CLI no Ubuntu/Debian
Mantenha seu Sistema Leve e Rápido com a Limpeza do APT!
Procurando vídeos de YouTube pelo terminal e assistindo via mpv (2025)
Jogos baixados na Central de Aplicativos mas que não abrem (1)
debian com wayland, configuracao de teclado. Mudou Tudo! [RESOLVIDO] (1)
Iinstalar o Scanner Kodak i940 no Linux Mint 19/20? (3)
Pastas da raiz foram para a área de trabalho [RESOLVIDO] (11)