[Perl] Funcion para buscar links en una web

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

1 2 3 4 5 6 7 8 9 10 11 12

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

1 2 3 4 5 6 7 8 9

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