Listing 1. Collecting the Basic Information
#! /usr/bin/perl
#20011210
use strict;
use LWP::UserAgent;
use LWP::Simple;
use HTML::Parse;
use HTML::Element;
use URI::URL;
use Image::Grab;
my $HTML_FILE = get($ARGV[0]);
my @HEADER = head($ARGV[0]);
my @ALL_URLS;
my $PARSED_FILE = HTML::Parse::parse_html($HTML_FILE);
for (@{$PARSED_FILE->extract_links()}) {
my $LINK = $_->[0];
my $URL = new URI::URL $LINK;
my $FULL_URL = $URL->abs($ARGV[0]);
push @ALL_URLS, $FULL_URL;
}
Copyright © 1994 - 2018 Linux Journal. All rights reserved.