nicht angemeldet
Viele, vielen dank für die vielen Tips und Hilfestellungen. Hat mir echt extrem weitergeholfen.
Das Script is jetzt soweit fertig. Wenn ich die Datei aufrfe, wird mir zwar nen Server-Fehler angezeigt, die Dateien werden trotzdem ordnungsgemäß erstellt.
Jetzt habe ich ne frage zu CSS in dem zusammen hang. Die Bilder sind alle 1024x768 bzw 576x768. Diese Will ich verkleinert Dargestellt haben. Die Zellen sind 250x250 groß. Wenn ich im <img>-Tag nichts mache, dann werden mir die Bilder in voller Größe angezeigt. Wenn ich das Bild prozentual verkleiner, dann richtet sich die Verkleinerung an den Zellen aus.
Ach ja...der Code sieht jetzt wie folgt aus:
#!"\xampp\perl\bin\perl.exe" -w
use CGI::Carp qw(fatalsToBrowser);
use POSIX qw(ceil floor);
use strict;
#Zeile 6
my $pics_nr = 105;
my $pics_seiten = ceil($pics_nr/16);
my $pics_count = 0;
my $pics_name = "001";
my $pics_break = 1;
my $page_name = 1;
my $page_count = 1;
#Zeile 14
for (my $i = 1; $i <= $pics_seiten; $i++) {
open(dies,">$page_name.html") || die("FEHLER: Datei kann nicht geschrieben werden...");
print dies "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">\n";
print dies "<html>\n";
print dies "<head>\n <style type=\"text/css\">\n td {height:250px; width:250px;}\n }\n</style>\n</head>\n";
print dies "<body>\n";
print dies "<center>\n<table border=1>\n";
print ies "<tr>\n";
while ($pics_count < 9) {
#if ($pics_break == 1) {print dies "<tr>\n"}
$pics_count++;
print dies "<td align=\"center\"><img src=\"img/$pics_name.JPG\"/></td>\n";
$pics_name++;
if ($pics_break == 3) {print dies "</tr>\n<tr>\n"; $pics_break = 0;};
$pics_break++;
}
if ($pics_break != 3) {print dies "</tr>\n"; $pics_break = 1;};
print dies "</table></center>\n";
print dies"</html></body>\n";
close(dies);
$page_name++;
$page_count = 1;
}
Struppi