29 lines
673 B
Perl
29 lines
673 B
Perl
#!/usr/bin/perl
|
|
|
|
use LWP::Simple;
|
|
use LWP::UserAgent;
|
|
use HTTP::Request;
|
|
use HTTP::Response;
|
|
use HTML::LinkExtor; # allows you to extract the links off of an HTML page.
|
|
|
|
$URL = $ARGV[0];
|
|
|
|
$browser = LWP::UserAgent->new();
|
|
$browser->timeout(10);
|
|
|
|
my $request = HTTP::Request->new(GET => $URL);
|
|
my $response = $browser->request($request);
|
|
if ($response->is_error()) {printf "%s\n", $response->status_line;}
|
|
|
|
$contents = $response->content();
|
|
|
|
my ($page_parser) = HTML::LinkExtor->new(undef, $URL);
|
|
$page_parser->parse($contents)->eof;
|
|
@links = $page_parser->links;
|
|
|
|
foreach $link (@links) {
|
|
if($$link[2] =~ /jpg$/){
|
|
print '<br><img src="'.$$link[2].'"></br>'."\n";
|
|
}
|
|
}
|