Perl Simpler Dateicounter

[furryhamster]

Hallo,

ich habe eine HTML-Seite mit Perl geschrieben. Diese soll einen Zugriffscounter in einer Datei! erhalten. Nach ewigem hin und her mit <, +<, +> usw ist er teilweise auch bereits in die Schleife gesprungen. Derzeit rührt sich jedoch gar nichts mehr außer wenn die Datei nicht existiert. Die Textdatei soll einfach nur immer den xten Zugriff beinhalten.

if (-e "/pfad/datei.txt") {
		print "springe in datei vorhanden67";
		open (DATEILESEN, "</pfad/datei.txt");
		open (DATEISCHREIBEN, ">/pfad/datei.txt");
		while (<DATEILESEN>) {
			print "1";
			$zeile = $_;
			$countErhoeht = $zeile +1;
			print DATEISCHREIBEN "$countErhoeht count";
			last;
		}
	} else {
		print "spinge in datei nicht vorhanden";
		print DATEISCHREIBEN "1";
	}
	close(DATEILESEN);
	close(DATEISCHREIBEN);

Schöner wäre natürlich noch wenn das ganze Tagesgenau wäre und jeden Tag eine neue Zeile erstellt werden würde aber wenn meine Variante laufen würde, reicht das schon.

Den Umweg über < und > bin ich nur gegangen, da +< bei mir auch nicht laufen wollte. Hat einer Ideen?