#!/usr/bin/perl $|=1; use LWP::Simple qw/get/; use HTML::Parse; use HTML::Element; use URI::URL; ## $dir = "~/tmp/"; ## Set Parameters $url = "http://www.dilbert.com"; $getdilbertgif = "/comics/dilbert/archive/images/"; $html = get ($url); ## Parse 'http://www.dilbert.com' for links $parsed_html = parse_html($html); ## Make links full URL's, then isolate the Dilbert cartoon link for (@{ $parsed_html->extract_links() }) { $link=$_->[0]; $url = new URI::URL $link; $full_url = $url->abs($url); $suburl=substr($full_url,0,-24); if ($suburl=~$getdilbertgif) { $dilbertgif=$full_url; $exten=substr($dilbertgif,52,3); } } ## Print out result to see if works $dilberturl="http://www.dilbert.com$dilbertgif"; print "Dilbert URL = $dilberturl\n"; print "Extension = $exten\n"; ## Use wget to retrieve gif #$wgetgif = "wget -A gif -O \"$dir\"dilbert.gif \"$dilberturl\""; if ($exten=~gif) { $wgetimage = "wget -A gif -O dilbert.gif \"$dilberturl\""; } else { $wgetimage = "wget -A jpg -O dilbert.jpg \"$dilberturl\""; } system $wgetimage;