nicht angemeldet
ich verstehe immer noch nicht wo dein Problem ist. Kannst du es soweit reduzieren, dass man das richtig testen kann?
Voilà:
#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
my ($zahl);
sub getinc
{print "*** \$zahl: $zahl ***<br>";
$zahl= $zahl+1;}
use CGI;
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html\n\n";
$zahl = 1;
print <<AAA;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html><head></head><body>
AAA
getinc ();
print <<GGG;
</div>
</body>
</html>
GGG
Wenn ich es starte, wird wie erwartet 1 angezeigt. Dann wird es hochgezählt. Wenn ich jetzt refresh drücke oder auch die URL neu eingebe, zeigt er 2 bzw. 3, 4,.... an.
Ich hätte erwartet, dass beim erneuten Aufruf des Programms wieder in Zeile 11 die Initialisierung auf 1 stattfindet.
Gruß
Barnabas
Struppi
MudGuard