Web crawler simples em Perl
Publicado por Perfil removido (última atualização em 29/07/2013)
[ Hits: 5.786 ]
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 #
Perl Check Port - Entenda melhor os sockets
Iniciando desenvolvimento web ágil com Perl (Mojolicious)
Nenhum comentário foi encontrado.
IA Turbina o Desktop Linux enquanto distros renovam forças
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
Assinador JNLP do Site Portal da Nota Fiscal Eletrônica (4)
Warcraft II Remastered no Linux? (3)
O programa assinador digital (3)









