Chat bot

[Malcolm Beck´s]

hi,

Was hindert dich daran,diese Meldungen in eine nahe liegende Datei umzuleiten.

Meine Unwissenheit zu Perl.

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

C:\Dokumente und Einstellungen\Administrator.***

print 'test1', "\n";
sleep (5);
print 'test2', "\n";
sleep (5); # nur zur besseren Beobachtung

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?

@Struppi:

$|++;

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

Was auch immer das sein mag, es funktioniert ;)

mfg