Counter - #4434 (Perl/CGI) - Perl-Community.de

Us0R

2005-02-19 12:32

User since
2005-02-17
6 Artikel
BenutzerIn
[default_avatar]

Hallo
Also als ich heute ein Counter für meine seite schreiben wollte hab ich denn Code geschrieben:

Code: (dl )

#!usr/bin/perl -w
#############################
### Perl Counter von Us0R ###
#############################
open (WRITE, ">counter.txt");
while (<WRITE>)
{
$counter = $_++;
}
print WRITE $counter;
close (WRITE);
open (DATA,"counter.txt");
while (<DATA>)
{
print "$_";
}
close (DATA);

und in die counter.txt hab ich dann eine 1 rein geschrieben aber wenn ich denn Script ausführe wird die 1 gelöscht! Was hab ich denn falsch? ???\n\n