Foro de elhacker.net

Hola a les traigo un funcion para buscar links en una web

use HTML::LinkExtor;
 
sub get_links {
 
$test = HTML::LinkExtor->new(\&agarrar)->parse($code);
return @links;
 
sub agarrar {
my ($a,%b) = @_;
push(@links,values %b); 
}
}
 

Ejemplo de uso

use LWP::Simple;
 
$code = get("http://127.0.0.1/doddy/index.php");
 
my @ver = get_links();
 
for my $url(@ver) {
print $url."\n";
}