Pagerank Checker
Publicado por rafaelmspc (última atualização em 01/12/2010)
[ Hits: 5.402 ]
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"; }
Burlando o "Protetor de links" INVERTIDO para download grátis
Pesquisar palavras no Diário Oficial da União
Gmail::SendMail - Enviando emails usando gmail
Nenhum comentário foi encontrado.
Atualizações de Apps, Desktop e Kernel agitam o ecossistema Linux nesta terça-feira
Miyoo Mini Plus + Onion OS (Linux)
IA local no bolso, novo visual no Raspberry Pi OS e mais destaques do software livre
Kernel turbinado, compatibilidade em alta e debate sobre sustentabilidade: o dia no mundo Linux
Kernel turbinado e GNOME 49 dominam o giro do dia no mundo Linux
Adicionando o repositório backports no Debian 13 Trixie
Como definir um IP estático no Linux Debian
Como colocar atalho para uma pasta na área de trabalho do Ubuntu 24.04... (1)
Como listar os arquivos em "bloquin... (0)
Como vencer a procrastinação? (8)
Adicional de convivdado em linux somente linha de comando (3)