Philipp Hasenfratz: Counter Script

Beitrag lesen

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?