Dilbert Archive Script

[ColonelPanic]

Simple, obvious, but incredibly useful.

#!/usr/bin/perl
use LWP::Simple;
my $webpage = get('http://www.dilbert.com');
$webpage =~ /<a href=\"\/comics\/dilbert\/archive\/images\/(dilbert\d+
+\.gif)\"/;
getstore("http://www.dilbert.com/comics/dilbert/archive/images/$1","..
+/$1");

[merlyn]

For a fancier version of this, see my column on that, or run it directly.

-- Randal L. Schwartz, Perl hacker

[aardvark]

You may also want to check out an article in the Perl Journal ( Summer 2000 ) which describes how to build TkComics, a Perl/TK web client. You can use it to view all kinds of comics.

http://www.tpj.com/issues/vol5_2/tpj0502-0010.html

Get Strong Together!!