Simple link extraction tool-another way


good chemistry is complicated, and a little bit messy -LW
	PerlMonks

Simple link extraction tool-another way

by Scott7477 (Chaplain)

on Jan 04, 2007 at 00:27 UTC ( [id://592850]=note: print w/replies, xml )

Need Help??

in reply to Simple link extraction tool

After consulting with merlyn and brian d foy, I came up with this:

use strict;
use HTML::SimpleLinkExtor;
use LWP::Simple;



#usage linkextractor http://www.example.com > output.txt

my $url = shift;
my $content = get ($url);


my $extor = HTML::SimpleLinkExtor->new();
$extor->parse($content);

my @all_links = $extor->links;
foreach my $elem (@all_links) {
    print $elem."\n";
}
[download]

Update:: HTML::SimpleLinkExtor comes with a script linktractor that gets the job done just fine as well.