Pagerank Checker
Publicado por rafaelmspc (última atualização em 01/12/2010)
[ Hits: 5.186 ]
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"; }
VimeoTheSapo -Baixe videos do Vimeo e do sapo
Localizador de palavras em arquivos nao binarios
Descobrir operadora de celular
Nenhum comentário foi encontrado.
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
Tem como instalar o gerenciador AMD Adrenalin no Ubuntu 24.04? (16)
Arch Linux - Guia para Iniciantes (2)
Problemas ao instalar o PHP (11)
Tenho dois Link's ( IP VÁLIDOS ), estou tentando fazer o failover... (0)