Wicked Cool Perl Scripts

#19 Comics Download

Every morning I get up, go to the computer, and read the morning paper. Actually the "paper" is a set of bookmarks in Mozilla. I happen to love editorial cartoons. Unfortunately, editorial cartoonists don't create new works daily, so I'm forced to view a large number of pictures I've seen before.

So I decided to see if Perl could help me and designed a program to download new cartoons from the Web. Old cartoons get skipped.

So now I get up, run the script, and view just the new stuff. It's amazing how a little technology can dejunk your life.

The Code

 1 #!/usr/bin/perl 2 use strict; 3 use warnings; 4 5 use LWP::Simple; 6 use HTML::SimpleLinkExtor; 7 use URI; 8 use POSIX; 9 10 # Information on the comics 11 my $in_file ...