nicht angemeldet
Script zur Erstellung vonHTMLSeite, mit Bildern aus Verzeichnis
Hallo,
suche ein Script, zur Erzeugung einer Webphotogallerie / Webphotogallery, wie sie
unter Photoshop angeboten wird. Finde nichts, hab google.de und selfhtml-Forum vergeblich gefragt:
Webphotogallery perl
perlscript fotogalerie
perlscript bildindex
perlscript bildgalerie
"bilder manager" perl
Wo finde ich etwas?
Ist doch eigentlich eine Anwendung aus dem alltäglichen Gebrauch, eine HTML-Seite zu erzeugen und Bilder aus einem Verzeichnis einzubinden?
Ich bin Perl-Anfänger.
Viele Grüsse
Thomas N
-
Hi,
suche ein Script, zur Erzeugung einer Webphotogallerie /
Wo finde ich etwas?
Ist doch eigentlich eine Anwendung aus dem alltäglichen Gebrauch, eine HTML-Seite zu erzeugen und Bilder aus einem Verzeichnis einzubinden?Also so schwer ist das nicht. Du liest einfach das Verzeichnis aus, und sucht alle Dateien nach Bildern durch (also .jp(e)g, .gif, .png und fasst diese Dateien dann in einer HTML Datei zusammen. Etwa stark vereinfacht so :
#!/usr/bin/perl -wuse strict;
my $ordner = '.';
my $htmldatei = 'index.html';open(FILE,">$htmldatei") or die "Cant save to $htmldatei : $!\n";
print FILE "<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">\n";
print FILE "<html><head><title></title></head><body>\n";
print FILE "<table style="width:780px">\n";
print FILE "<tr><td>Gefundene Grafiken :</td></tr>\n";opendir(DIR,$ordner) or die "Cant open directory : $!\n";
while (defined($_ = readdir DIR)) {
if ($_ =~ /^.+?.(gif|png|jpe?g)$/i) {
print FILE "<tr><td><img src="$_" alt="$_"></td></tr>\n";
}
}
closedir DIR;
print FILE "</table></body></html>\n";
close FILE;