#!c:\perl\perl.exe -w use strict; use LWP::Simple; my @results; my @file; my $i = 0; my @sluggy = split("\n",get("http://www.sluggy.com")); for (@sluggy) { if(/"(http:\/\/pics\.sluggy\.com\/comics\/.*?)"/) { push @results, $1; $1 =~ /.*\.(...)/; push @file, "image_$i.$1"; $i++; } } my @userfriendly = split("\n",get("http://www.userfriendly.org")); for (@userfriendly) { if(/"(http:\/\/www\.userfriendly\.org\/cartoons\/archives\/[\d|\l].*?)"/) { push @results, $1; $1 =~ /.*\.(...)/; push @file, "image_$i.$1"; $i++; } } my @sinfest = split("\n",get("http://www.sinfest.net")); for (@sinfest) { if(/"(\/comics\/.*?)"/) { push @results, "http://www.sinfest.net$1"; $1 =~ /.*\.(...)/; push @file, "image_$i.$1"; $i++; } } get("http://www.nuklearpower.com/comic/") =~ /Newest Comic<\/a>/; my @nuklearpower = split("\n",get("http://www.nuklearpower.com/comic/$1")); for (@nuklearpower) { if( /

<\/p>/ ) { push @results, "http://www.nuklearpower.com/comic/$1"; $1 =~ /.*\.(...)/; push @file, "image_$i.$1"; $i++; } } my @megatokyo = split("\n",get("http://www.megatokyo.com")); for (@megatokyo) { if(/"(\/strips\/.*?)"/) { push @results, "http://www.megatokyo.com$1"; $1 =~ /.*\.(...)/; push @file, "image_$i.$1"; $i++; } } my @machall = split("\n",get("http://www.machall.com")); for (@machall) { if( /src='(\/index\.php\?do_command=show_strip.*?)'/ ) { push @results, "http://www.machall.com$1"; push @file, "image_$i.jpg"; $i++; } } open PAGE, ">comics.html" || die $!; print PAGE "\n

\nMatt's Comic Page"; for(my $i = 0; $i < @results; $i++) { print "$results[$i]\n"; $results[$i] =~ /.*\.(...)/; getstore($results[$i], $file[$i]); print PAGE "
\n"; } print PAGE "
\n"; close PAGE || die $!;