Counter Script

[Reto Strub]

Hallo Forum

Hat jemand ein einfaches lauffähiges Perl-Counter-Script ?

Kann auch ein Link sein!

Wäre Dankbar. Reto

[Philipp Hasenfratz]

Halihallo Reto

Hat jemand ein einfaches lauffähiges Perl-Counter-Script ?

#!/usr/bin/perl-w

open(F,'<./cnt.txt');my($cnt)=<F>;close(F);
open(F,'>./cnt.txt');print F ++$cnt;close(F);
print 'Content-Type: text/plain'."\015\012\015\012".$cnt;

in einer SHTML-Datei über

Pageview Nr. <!--#include virtual="/cgi-bin/counter.pl"-->!  Perl r0lx!

einbinden, wenn du obige Zeilen Perl-Code in counter.pl im /cgi-bin abgelegt hast und
die Permission etc. richtig gesetzt hast.

Viele Grüsse

Philipp

PS: TIMTOWTDI?