Web crawler simples em Perl [Perl]

Web crawler simples em Perl

Publicado por Perfil removido (última atualização em 29/07/2013)

[ Hits: 5.926 ]

Download wc.pl

0 0

Denuncie Favoritos Indicar

Este script procura links e paths presentes em um determinado site.

:)

Esconder código-fonte

#!/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 #

Scripts recomendados

Admin Finder

IPloc - Informações e localização de um determinado endereço IP

PDF completo com todas as páginas do Diário Oficial do Estado de Goiás

Upload de múltiplos arquivos para Imageshack.us

AUTENTICACAO VELOX

Comentários

Nenhum comentário foi encontrado.