Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

executable file 21 lines (16 sloc) 0.446 kb
#!/usr/bin/perl
use strict;
use HTML::LinkExtor;
use List::MoreUtils qw< uniq >;
use LWP::Simple;
my @links;
my $url = shift || die "usage: $0 url\n";
my $page = get($url) || die "can't fetch $url\n";
my $extor = HTML::LinkExtor->new(sub {
my ($tag, %attrs) = @_;
push @links, $attrs{href} if $tag eq "a";
push @links, $attrs{src} if $tag eq "img";
});
$extor->parse($page);
$extor->eof;
print join $/, uniq @links, "";
Jump to Line
Something went wrong with that request. Please try again.