Web crawler simples em Perl
Publicado por Perfil removido (última atualização em 29/07/2013)
[ Hits: 5.881 ]
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 #
Baixar o Diário Oficial da União e salvar como um único PDF completo
Gmail::SendMail - Enviando emails usando gmail
Iniciando desenvolvimento web ágil com Perl (Mojolicious)
Nenhum comentário foi encontrado.
Cinnamon seria a aposta acertada frente às outras interfaces gráficas mais populares?
KDE Plasma - porque pode ser a melhor opção de interface gráfica
Gentoo: detectando impressoras de rede e como fixar uma impressora por IP
Como o GNOME conseguiu o feito de ser preterido por outras interfaces gráficas
Por que sua empresa precisa de uma PKI (e como automatizar EMISSÕES de certificados via Web API)
Instalando NoMachine no Gentoo com Systemd (acesso Remoto em LAN)
Vou destruir sua infância:) (8)
Interface gráfica com problema (2)
Instalar Linux em notebook Sony Vaio VPCEG13EB (13)









