Nem cgi counter

Er Perl installeret på serveren?

Ja...Perl er installeret....Har du noget så???

Nej - beklager. Måske kan jeg finde noget i "CrossPlatform Perl" - men den ligger hjemme. Det bliver i så fald tidligst mandag.

Ok...det må du gerne

Ok - her er hvad jeg fandt i en Perl FAQ:

Counter script:
********
    #!/usr/local/bin/perl

    $counter = "/home/shishir/counter.dat";
    print "Content-type: text/plain", "\n\n";

    open (FILE, $counter) |||| die "Cannot read from the counter file.\n";
    flock (FILE, 2);
    $visitors = <FILE>;
    flock (FILE, 8);
    close (FILE);

    open (FILE, ">" . $counter) &#124;&#124;&#124;&#124; die "Cannot write to counter file.\n";
    flock (FILE, 2);
    print FILE $visitors;
    flock (FILE, 8);
    close (FILE);

You can now use SSI (Server Side Includes) to display a counter in your HTML document:

You are visitor number:

    <!--#exec cgi="/cgi-bin/counter.pl-->

***********

Hvis du ikke vil have tallet vist, kan scriptes køres via en <IMG> tag - så skal du bare ændre output til et gennemsigtigt/hvidt billede 1x1 pixel.

Se i øvrigt følgende URL:

http://www.cgi-resources.com/Programs_and_Scripts/Perl/Access_Counters/

Her er en passende counter:

http://www.geocities.com/SiliconValley/6742/