Aufruf über Image-Tag

[Knud Schröder]

Hallo Jan,

ich hab mal irgendwann den folgenden Code geschrieben,:

#!/usr/bin/perl

Datei öffnen, in der der aktuelle Zählerstand steht

open(COUNTER, "<counter.txt");
while (<COUNTER>){ $Counter = $_; }
close(COUNTER);

#Zählerstand erhöhen
$Counter++;

#und neuen Stand natürlich wieder wegschreiben
open(COUNTER, ">counter.txt");
print COUNTER $Counter;
close(COUNTER);

#Anzahl der vorangehenden Nullen ermitteln (für 4stellige Zähler)
$anz = 4-length($Counter);
$Counter = "0" x $anz .$Counter;

jetzt kommt die Ausgabe:

print "Content-type: text/html\n\n";                   # kennzeichnet die Ausgabe als HTML-like
for($i = 1;$i <= length($Counter);$i++)          # hier gehe ich jede Ziffer durch
{
     $ziffer = substr($Counter,$i-1,1);              # Ziffer-Wert wird ermittelt
     print "<img src="ziffern/z$ziffer.gif">";    # und dann (Deine Antwort, oder?) wird das entsprechende Bild erzeugt.

Mit weiteren print-Anweisungen kannst Du dann auch weiteren Text anfügen, halt einfacher HTML-Text

}
exit;

Weitere Fragen, nicht die richtige Antwort? --> Dann nochmal genauer erklären!

Knud