Mirror, Mirror on the Wall

Script I.3.1: Mirroring Single Pages

#!/usr/local/bin/perl # mirrorOne.pl use LWP::Simple; use HTTP::Status; use constant DIRECTORY => '/local/web/price_lists'; %DOCUMENTS = ( 'dogs.html' => 'http://www.pets.com/dogs/price_list.html', 'cats.html' => 'http://www.pets.com/cats/price_list.html', 'gillie_fish.html' => 'http://aquaria.com/prices.html' ); chdir DIRECTORY; foreach (sort keys %DOCUMENTS) { my $status = mirror($DOCUMENTS{$_},$_); warn "$_: ",status_message($status),"\n"; }

What it looks like

 % ./MirrorOne.pl
 cats.html: Not Modified
 dogs.html: OK
 gillie_fish.html: Not Modified

Previous

Contents

Next