Web crawler simples em Perl
Publicado por Perfil removido (última atualização em 29/07/2013)
[ Hits: 5.944 ]
Este script procura links e paths presentes em um determinado site.
:)
#!/usr/bin/perl -w
use WWW::Mechanize;
use Term::ANSIColor;
# This crawler find only link #
# By KoubackTr
# Follow-me http://www.twitter.com/kouback_tr_
# Thanks :)
print"\n";
print color('yellow');
print <<WcraW;
W.CraW Web crawler v1.0
__ __ ___ __ __
/ / /\\ \\ \\ / __\\ __ __ _/ / /\\ \\ \\
\\ \\/ \\/ // / | '__/ _` \\ \\/ \\/ /
\\ /\\ // /__| | | (_| |\\ /\\ /
\\/ \\(_)____/_| \\__,_| \\/ \\/
By KoubackTr - http://twitter.com/kouback_tr_
WcraW
#####################//#####################
print"\n";
print color('reset');
print color('green');
print"";
print"[!]Use EXEMPLE http://www.google.com/ \n";
print"[+]Target>> ";
print color('reset');
my $target = <STDIN>;
my $craw = WWW::Mechanize->new();
$craw->get($target);
my @links = $craw->links();
print"RESULTS:\n";
print"====================================================\n";
print $_->url."\n" foreach @links;
print"====================================================\n";
# END #
Gmail::SendMail - Enviando emails usando gmail
Automatizando o envio de arquivo p/ o FTP !
SMTP Mass Mail - Enviando e-mails em massa para vários endereços a partir de um servidor SMTP
Descobrir operadora de celular
Nenhum comentário foi encontrado.
Maquina modesta - a vez dos navegadores ferrarem o usuario
Fscrypt: protegendo arquivos do seu usuário sem a lentidão padrão de criptograr o disco
Faça suas próprias atualizações de pacotes/programas no Void Linux e torne-se um Contribuidor
Configurando o Cairo Dock individualmente em ambientes diferentes na mesma maquina
Calculadoras online gratuitas para o dia a dia do usuário Linux
Utilizando a Ferramenta xcheckrestart no Void Linux
Pisando no acelerador do Linux Mint: Kernel XanMod, zRAM e Ajustes de Swap
Como instalar Warsaw no Gentoo? (9)
Isso acontece quando tento ajudar alguém (0)
Governo da França vai trocar Windows por Linux (4)









