Moderator: Basti
#!/usr/bin/perl -w //diese Zeile gibt den Pfad zum Perlinterpreter an
print "Content-Type: text/html\n\n"; //Wichtig, damit die Datei ein CGI-Script wird
use strict; /Variablen müssen deklariert werden
my($OK, $zeile, $counter); //Variablen OK, zeile und counter werden festgelegt
-----------Der Rest erklärt sich glaube ich auch von selbst ;)
$OK = open(COUNTER, "count.txt");
if(not($OK))
{
print "[Ausser Betrieb]\n";
print "Leseproblem: $!\n";
exit;
}
$zeile = <COUNTER>;
chomp($zeile);
$counter=$zeile;
$counter++;
$OK = open(COUNTER, ">count.txt");
if(not($OK))
{
print "[Ausser Betrieb]\n";
print "Schreibproblem: $!\n";
exit;
}
print COUNTER "$counter\n";
print "[$counter]\n";
Mitglieder in diesem Forum: 0 Mitglieder und 2 Gäste