Täglicher Screenshot mit Perl? - #132989 (Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl)

topeg

2010-02-14 21:35

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Also unter Linux(Unix) würde ich einen Cron-Job anlegen der wget ausführt:

Code: (dl )

0 12 * * * wget http://www.test.de/table.html -o /path/to/dir/table-`date -I`.html

Unter Windows wirst du wohl ein Script brauchen, dass ständig läuft und ungefähr so aussieht:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
use POSIX 'strftime';

my $wait=60*60*24;
my $url='http://www.test.d/table.html';
my $name='/path/to/dir/table-%y-%m-%d.html';

while(1)
{
  eval
  {
    $SIG{ALRM}=sub{ die(); };
    alarm($wait);
    my $c=<STDIN>;
    chomp($c);
    alarm(0);
    exit if(defined($c) && $c eq 'q');
  }
  my $file=strftime($name);
  print "Save $url => $file\n";
  getstore($url, $file) or die("ERROR store $file ($!)");
}