nicht angemeldet
So, ich hab nochmal den Code verändert...
#!"\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_pro = 9;
my $pics_seiten = ceil($pics_nr/$pics_pro);
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 .pics {height:150px;}\n img {height: 150px;}\n</style>\n</head>\n";
print dies "<body>\n";
print dies "<center>\n<table border=0>\n";
print ies "<tr>\n";
while ($pics_count < 9) {
$pics_count++;
print dies "<td align=\"center\" class=\"pics\"><img src=\"img/$pics_name.JPG\"/></div></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;}
my $h = $i-1;
my $j = $i+1;
if( $i == 1) {print dies "<tr>\<td height=14px></td>\n<td>Seite $i</td>\n<td><a href=\"$j.html\">Weiter</a></td>"; last;}
if( $i < $pics_seiten) {print dies "<tr height=14px><td><a href=\"$h.html\">Zurück</a></td><td>Seite $i</td><td><a href=\"$j.html\">Weiter</a></td>"; last;}
else {print dies "<tr height=14px><td><a href=\"$h.html\">Zurück</a></td><td>Seite $i</td><td></td>"; last;}
print dies "</table></center>\n";
print dies"</html></body>\n";
close(dies);
$page_name++;
$page_count = 1;
$pics_count = 0;
$pics_break = 1;
}
Aus irgendwelchen Gründen steht nur auf der ersten Seite "border=0" auf allen anderen Seiten steht "border=1".
Und wenn ich in die While-Schleife die bedingte Anweisung: "if ($pics_nr < $pics_name) {last;}" einfüge, dann werden die Zahlen nciht mehr mit drei ziffern (also statt 1..001, usw.) ausgegeben, sondern die "Füll-Nullen" verschwinden. Woran liegt das?
gruß
Sören
Struppi