Zähler
Jörg
- perl
0 Julian Hofmann0 Stefan Muenz0 Jörg
Hallo wer kann mir helfen?
mir gelingt es nicht einen Zähler in ein Mail-Skript einzubauen.
Das Skript läuft
hier sind die Bausteine die ich eingefügt habe.
###############################################
........
#Name der Counterdatei "ist vorhanden"
$count_txt="c1.txt" ;
#Pfad der Counter- Rückgabe- und Fehlerdateien
$data_dir = "/usr/local/etc/httpd/htdocs/cgi-bin/mail/data" ;
........
###############################################
........
#Aktuellen Counter holen
&akt_count;
........
###############################################
sub akt_count {
my $counter ;
my $dat_file="$data_dir/$count_txt";
open (COUNT, "<$dat_file")";
$counter = <COUNT>;
close(COUNT);
open(COUNT, ">$dat_file");
$counter++;
close(COUNT);
}
###############################################
#Und diese Zeile habe ich im Unterprogramm sub send_mail
eingefügt.
....
print MAIL "$counter"\n;
....
###############################################
Wer kann mir helfen?
MFG Jörg
Hallo Jörg,
kurz überblickt ist mir nur folgendes aufgefallen:
print MAIL "$counter"\n;
Müßte meiner Meinung nach wie folgt lauten:
print MAIL "$counter\n";
Gruß
JUlian
Hallo Joerg
mir gelingt es nicht einen Zähler in ein Mail-Skript einzubauen.
1. Counter-Variable so definieren, dass auch andere Funktionen sie auswerten koennen. Am besten am Anfang des Scripts mit:
$counter = 0;
2. Nicht vergessen, den Counter nach dem Hochzaehlen in die Datei zurueckzuschreiben:
open(COUNT, ">$dat_file");
$counter++;
print COUNT "$counter\n";
close(COUNT);
3. Wie Julian schon gesagt hat, \n in den String reinziehen:
print MAIL "$counter\n";
viele Gruesse
Stefan Muenz
Hallo Julian
Danke für Deine Antwort. Kannst Du mir sagen, was ich nun in meinem Script ändern muss. Im Quell-Text?
Habe leider nicht grosse Ahnung von PHP. Habe dieses Script von einem Informatik-Lehrer erhalten.