Online-Counter

[Wolfgang Wiese]

Hi,

[count1.pl]

#!/usr/bin/perl

Diese Datei liest die Zahl ein und gibt sie mit einer netten

Meldung aus ,)

open(DAT,"<count.dat");
$uo = <DAT>;
close(DAT);

Kein Filelocking?!??!?!?!
Ich bin Enttaeuscht von dir!

»»  open(DAT,">count.dat");
»»  print DAT "$uo";
»»  close(DAT);
»»  }

dito.

Ciao,
  Wolfgang