08/11/18 01:36:17
use LWP::UserAgent;
chdir("C:\\Program Files\\Lavasoft\\Ad-Aware SE Personal");
open(LIN,"defs.log");
$old=<LIN>;
close(LIN);
$ua=new LWP::UserAgent;
$ua->agent("perl LWP");
$req=new HTTP::Request HEAD => 'URLﾘﾝｸ(download.lavasoft.com)';
$res=$ua->request($req);
$res->as_string=~ /Last-Modified: (.*GMT)/;
$new=$1;
if ($new ne $old) {
$|=1;
print "Now Loading.";
$req=new HTTP::Request GET => 'URLﾘﾝｸ(download.lavasoft.com)';
$res=$ua->request($req);
$text=$res->content;
rename("defs.ref","defs.ref.old");
open(DOUT,"> defs.ref");
binmode(DOUT);
print DOUT $text;
close(DOUT);
open(LOUT,"> defs.log");
print LOUT $new;
close(LOUT);
}
print "Done.";
exit;
こんなスクリプトはどうよ？