#!/usr/local/bin/perl #use strict; #use warnings; use LWP::Simple; my $baseurl = 'http://www.xkcd.com/'; my $comicnum = 1; open (TSV, '>>index.csv'); while($pagecontent = get("$baseurl$comicnum/")) { $comicnum++; if($pagecontent =~ /[\r\n]+[\r\n]+/) { $imgurl = $1; $imgtitle = $2; $imgalt = $3; if($imgurl =~ /\/([^\/]*)$/) { $filename = $1; } print "Fetching $imgurl to $filename...\n"; getstore($imgurl, $filename); print TSV "$filename\t$imgtitle\t$imgalt\n"; } } close (TSV);