Datei öffnen

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

#!/usr/bin/perl
use LWP::Simple;

($content_type,$document_length,$modified_time,$expires,$server) = head(http://www.domain.de/image.jpg);

if ( $content_type eq "image/jpeg" ) {
@now = reverse((localtime($modified_time || time))[0 .. 5]);
$now[0] += 1900;
$now[1]++;
$archive_file = sprintf("%04d%02d%02d_%02d%02d%02d.jpg", @now);

$content = get("http://www.domain.de/image.jpg");
open( PIC, ">/images/bild.jpg/$archive_file" )
|| die "Fehler beim Oeffnen von $archive_file: $!\n";
print PIC $content;
close(PIC);
@files = sort { $b cmp $a } glob("/images/bild.jpg/*_*.jpg");
splice(@files, 0, 15);
if (@files) {
unlink(@files) || die "Fehler beim Löschen von @files: $!\n";
}
}