Chat bot

[Struppi]

BEGIN {
use CGI::Carp qw(carpout);
open(LOG, ">>error.txt")
             or  die "Unable to append to error.txt: $!\n";
carpout(*LOG);
}

Interessant, woher bezieht Perl den Pfad für die error.txt? Ich hab die Datei in meinem Admin-Verzeichnis gefunden

Tja, eigentlich sollte das aktuelle Verzeichnis, das sein wo das Skript ist. Aber das liegt an der Konfiguration des Servers, ich weiß allerdings auch nicht wo das eingestellt wird.

Ja, so funktioniert es, auch ohne das letzte sleep, fragt sich nur, warum das Script mit „\n“ erst richtig arbeitet, gibt es da einen Grund für?

weil der Ausgabepuffer geleert wird.

@Struppi:

$|++;

Perl ist hässlich -- FULL ACK! ;)

Was ist an einer Variabel häßlich?

Was auch immer das sein mag, es funktioniert ;)

http://de.selfhtml.org/perl/sprache/vordefiniert.htm#skalare

Struppi.