#!/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);