[Perl] Funcion get_links()

[BigBear]

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

Código (perl) [Seleccionar] Expandir

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

Código (perl) [Seleccionar] Expandir

use LWP::Simple;

$code = get("http://127.0.0.1/doddy/index.php");

my @ver = get_links();

for my $url(@ver) {
print $url."\n";
}