nicht angemeldet
Hallo Struppi,
wenn ich in dem Skript die Variable $zahl nicht mit "my $zahl;" sondern mit "use vars ($zahl);" definiere, läuft es auch auf meinem Server.
Hast Du dafür eine Erklärung?
#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
#### my ($zahl);
use vars ($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
Struppi
MudGuard