hallo,

my $cgi = CGI -> new;

my $cgi = new CGI;

Dein Script funktioniert auf der Konsole, weil es da nicht über die CGI-Schnittstelle gehen muß. Und bei Problemen mit einem Script sollte man immer
   use CGI::Carp qw(fatalsToBrowser);
verwenden, außerdem ist es sinnvoll, ins log zu schauen. Die Fehlermeldungen sollten dich auf die richtige Spur bringen können.

open DAT, "<./data/counter.dat" or die "Kann Counter-Datei nicht oeffnen!";
open DAT, ">./data/counter.dat" or die "Kann Counter-Datei nicht oeffnen!";

Es muß ein absoluter Pfad sein.

mein System:
Linux-Kernel: 2.2.26
Perl-Version: 5.6.1
Apache: 1.3.19

Oh. Alles nicht mehr so ganz taufrisch, wobei es auf dein Problem keinen Einfluß haben dürfte.

Grüße aus Berlin

Christoph S.

hallo HenKHan

open DAT, "<./data/counter.dat" or die "Kann Counter-Datei nicht oeffnen!";

als pfad würde ich den relativen pfad vom script verwenden.
wenn dein script serverroot/cgi-bin/counter.pl
und dein textfile serverroot/data/counter.dat heissen
dann müsstest du
open DAT, "<../data/counter.dat" or die "Kann Counter-Datei nicht oeffnen!";

my $inhalt = <DAT>;
close DAT;

hier würde ich zur kontrolle ob er richtig gelesen hat
print($inhalt);
einfügen.

$inhalt++;

open DAT, ">./data/counter.dat" or die "Kann Counter-Datei nicht oeffnen!";

hier gilt das selbe für den pfad wie oben

print DAT "$inhalt";

diese zeile sollte wohl eher
print DAT $inhalt;
lauten

close DAT;

print $inhalt;

l.g. karl :-)´

ich habe folgendes Script geschrieben:

Das Script stellt einen Counter dar.

[...]

Hallo,
läuft bei mir seit Jahren:

#!/usr/bin/perl -w

Author : WOLfgang Schricker wols@wols.org

use strict;

my $log_file = "data/counter.dat";

unless ( open(LOG, "+< $log_file") )
{
  open(LOG, "> $log_file")  or die "Can't open '$log_file':\n$!\n";

print LOG "1";

close(LOG)                or die "Can't close '$log_file':\n$!\n";
}
else
{
  my @log = <LOG>;

$log[0]++;
   seek(LOG, 0, 0)          or die "Can't seek '$log_file':\n$!\n";
   print LOG @log;
   truncate(LOG, tell(LOG)) or die "Can't truncate '$log_file':\n$!\n";

close(LOG)                or die "Can't close '$log_file':\n$!\n";
}

exit(0);