Torwächter: Perl in HTML (Counterproblem)

Beitrag lesen

Hallo Chantalle,

ich hab mich mal hingesetzt und dir ein kleines Beispiel programmiert.

Viele Grüße
Torwächter

----------------test.html-----------------

<HTML>
<HEAD>
<TITLE>TEST</TITLE>
</HEAD>
<BODY>
HALLO DU
<img src="cgi-bin/couter.pl">
</BODY>
</HTML>

---------------counter.pl-----------------
#!/usr/bin/perl

#der Pfad zu deinem Textfile
$pfad = "C:/Webserver/htdocs/counter.txt"; #ist jetzt local

######### Nichts mehr ändern ###########

#öffnet das Counterfilde
open(COUNTER, "$pfad");
my @ZAHL = <COUNTER>;
close(COUNTER);

#geht auch anderst aber so bin ich mir sicher
foreach $nummer(@ZAHL){}

#zu Nummer 1 dazuzählen
$nummerNEW = $nummer + 1;

#neuen Wert schreiben
open(COUNTER, ">$pfad");
print COUNTER "$nummerNEW";
close(COUNTER);