haruchan!

gistfile1

#!/usr/bin/perl

use strict;
use POSIX qw(strftime);
use LWP::UserAgent;
use Data::Dumper;

my $save_dir = $ENV{HOME} . '/Dropbox/haruchan/';
my $TARGET   = 'http://cgi2.nhk.or.jp/nw9/haruchan/saijiki/index.cgi?entry=%Y%m%d';
my $HARUCHAN = 'http://cgi2.nhk.or.jp/nw9/data/saijiki/images/%Y%m%d_pg7.jpg';
my $MY_HARU  = '%Y%m%d_pg7.jpg';

my $target   = strftime($TARGET,   localtime);
my $haruchan = strftime($HARUCHAN, localtime);
my $my_haru  = strftime($save_dir . $MY_HARU, localtime);

if (! -f $my_haru) {
    my $ua = LWP::UserAgent->new;
    my $head = $ua->head($haruchan, 'Referer' => $target);
    if (! $head->previous) {
	$ua->get($haruchan, ':content_file' => $my_haru, 'Referer' => $target);
    }
}