Ausgabe umlenken - Reihenfolgeproblem (gelöst) (Allgemeines zu Perl)

[thread]17731[/thread]

Ausgabe umlenken - Reihenfolgeproblem [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+3 replies

Astralkeks

2012-09-05 17:25

User since
2012-07-17
40 Artikel
BenutzerIn
[default_avatar]

Hallo,

ich möchte STDOUT und STDERR in die gleiche Datei umleiten. Dabei gab es Probleme, und nicht jede Ausgabe wurde umgeleitet.
Dann habe ich ein kleines Testprogramm geschrieben und bekomme ungewöhnliche Ausgaben:

Code (perl): (dl )

use POSIX;

 open(STDOUTFAKE, ">&STDOUT");
 open(STDOUT, ">>$globalLog") || die "Kann $globalLog nicht öffnen!";
 
 open(STDERRFAKE, ">&STDERR");
 open(STDERR, ">>$globalLog") || die "Kann $globalLog nicht öffnen!";
 open(GLOG, ">>$globalLog") || die "Kann $globalLog nicht öffnen!";;


logPrint("1\n");
 print "2\n";
logPrint2("3\n");
 print GLOG ("4\n");

open(STDOUT, ">&STDOUTFAKE");
open(STDERR, ">&STDERRFAKE");

close STDOUTFAKE;
close STDERRFAKE;
close GLOG;

sub logPrint {
    print GLOG "-- ".strftime('%H:%M:%S',localtime(time()))." -- ".shift;
}
sub logPrint2 {
    print "-- ".strftime('%H:%M:%S',localtime(time()))." -- ".shift;
}

Also Idee ist einfach, STDOUT, STDERR auf $globalLog umleiten, und bei Bedarf eigene Einträge mit Uhrzeit hinzufügen.
Erwartete Ausgabe ist eine numerisch geordnete, die tatsächliche ist allerdings:

Code: (dl )

2
-- 17:19:46 -- 3
-- 17:19:46 -- 1
4

Ich bin verwirrt. Jemand eine Idee?
Oder vielleicht eine einfachere Variante?

+2 replies

murphy

2012-09-05 17:48

User since
2004-07-19
1776 Artikel
HausmeisterIn

Die etwas überraschende Sequenzierung der Ausgabe dürfte am Pufferungsverhalten der Dateihandles liegen.

Ich würde vorschlagen, das ganze etwas weniger redundant aufzuschreiben und Autoflush zu aktivieren:

Code (perl): (dl )

#!/usr/bin/env perl
use 5.012;
use warnings;

use POSIX;
use IO::Handle;

my $globalLog = 'foo.log';

open(GLOG, '>>', $globalLog) || die "Kann $globalLog nicht öffnen: $!";
GLOG->autoflush(1);

open(STDOUT, '>&GLOG');
open(STDERR, '>&GLOG');

logPrint("1\n");
print "2\n";
logPrint2("3\n");
print GLOG ("4\n");

sub logPrint {
    print GLOG "-- ".strftime('%H:%M:%S',localtime(time()))." -- ".shift;
}
sub logPrint2 {
    print "-- ".strftime('%H:%M:%S',localtime(time()))." -- ".shift;
}

When C++ is your hammer, every problem looks like your thumb.

Astralkeks

2012-09-06 14:13

User since
2012-07-17
40 Artikel
BenutzerIn

Funktioniert wie gewünscht! Danke!

View all threads created 2012-09-05 17:25.