Código
Ejemplo de uso
use HTML::LinkExtor; sub get_links { $test = HTML::LinkExtor->new(\&agarrar)->parse($code); sub agarrar { my ($a,%b) = @_; } }
Código
use LWP::Simple; $code = get("http://127.0.0.1/doddy/index.php"); my @ver = get_links(); for my $url(@ver) { }