Ausgabe umleiten will nicht (Allgemeines zu Perl)

Echelon1010000

2005-07-11 14:14

User since
2005-06-29
18 Artikel
BenutzerIn
[default_avatar]

Hi

Ich verwende den Code

Code: (dl )

    open STDIN, '/dev/null' || die "Can't open /dev/null: $!";
    open (OUT,">>$logfile") || die "Can't open logfile $logfile: $!";
    open (ERR,">>$errlogfile") || die "Can't open logfile $errlogfile: $!";
    *STDOUT = *OUT; #redirect STDOUT
    *STDERR = *ERR; #redirect STDERR

Um die Ausgabe eines Programms in eine Logfile umzuleiten nachdem sich das Programm von der Konsole abgekoppelt hat und im Hintergrund sitzt.

Ich bekomme jedoch keine Ausgabe in der Datei. Auf der Konsole allerdings auch nicht. Die Ausgabe erfolgt durch normale "print" Anweisungen.

Wer kann mir sagen wo mein Denkfehler ist?

Gruss, Echelon

Relais

2005-07-11 14:21

User since
2003-08-06
2246 Artikel
ModeratorIn

Woher hast du denn solche Ideen? Ich möchte ja nicht ausschließen, daß das irgendwie gehen könnte, aber sowas habe ich nocht nicht gesehen.

Folgendes aus meiner Erinnerung der Manpages, ist also gerade mal ungetestet, aber so soll das gehen

Code: (dl )

close STDOUT;
close STDERR;
open (STDOUT,">>$logfile")
 or die "Can't open logfile $logfile: $!";
open (STDERR,">>$errlogfile")
 or die "Can't open logfile $errlogfile: $!";

Probier mal.

Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop (Termin wird noch gesucht) 2025 in München.

Winter is Coming

J-jayz-Z

2005-07-11 14:27

User since
2005-04-13
625 Artikel
BenutzerIn

Das war so, hier ein kleines Script, als beispiel:

Code: (dl )

#!/usr/bin/perl
 use strict;
 use warnings;
 #Pragmas für guten Stil einbinden
 
 open(STDOUTFAKE, ">&STDOUT");
 open(STDOUT, ">stdout.txt") || die "Kann stdout.txt nicht öffnen!";
 #STDOUT nach stdout.txt leiten und STDOUTFAKE an die Konsole
 
 print "STDOUT ist nun nicht mehr die Konsole...\n";
 print STDOUTFAKE "Das kommt nun auf die Konsole...\n";
 
 #STDOUT wieder herstellen
 open(STDOUT, ">&STDOUTFAKE");
 print "Nun ist STDOUT wieder auf der Konsole...\n";

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de

Echelon1010000

2005-07-11 14:30

User since
2005-06-29
18 Artikel
BenutzerIn
[default_avatar]

Hi

Also, "solche Ideen" hab ich irgendwann man aus einem Tutorial übernommen das sich mit Serverdiensten in Perl befasste. Nun, ich schreibe keinen Server aber einen daemon, also hab ich es übernommen und angepasst. Damals funkionierte es auch. Heute nicht mehr. Ich finde das Tutorial nicht mehr und google hat mir auch nicht weitergeholfen. Hab mich da wohl auf meine Version zu sehr festgefahren.

Mit deiner Version funktioniert es, Danke :)

Gruss, Echelon

betterworld

2005-07-11 17:20

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

[quote=Relais,11.07.2005, 12:21]

Code: (dl )

close STDOUT;
close STDERR;
open (STDOUT,">>$logfile")
 or die "Can't open logfile $logfile: $!";
open (STDERR,">>$errlogfile")
 or die "Can't open logfile $errlogfile: $!";

Probier mal.[/quote]
Hmm, da muss man aber aufpassen. Falls man nicht $SIG{_ _DIE_ _} irgendwie manipuliert oder einen eval-Block benutzt, werden ja bei "die" die Fehlermeldungen nach STDERR ausgegeben. Aber das ist ja geschlossen. Eigentlich muss man auch gar nicht STDOUT und STDERR explizit schliessen, denn das geschiet automatisch, wenn man sie neu oeffnet.

[quote=Echelon1010000,11.07.2005, 12:14]

Code: (dl )

    open STDIN, '/dev/null' || die "Can't open /dev/null: $!";

[/quote]
Da ist die Operatorenreihenfolge falsch. Entweder ersetze "||" durch "or" oder benutze Klammern fuer open.\n\n

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

Echelon1010000

2005-07-11 17:25

User since
2005-06-29
18 Artikel
BenutzerIn
[default_avatar]

Hi

Danke, hab ich nach dem obigen Beispiel schon gemacht.
Du sagst man muss aufpassen wenn man die STDOUT und STDERR zu macht weil die dann umgeleitet wird. Genau das will ich doch, ich will ja die Ausgabe in meiner logfile. Oder meinst du die Zeit zwischen dem Schliessen und neu aufmachen?

Ist das kritisch? Wenn ja muesste man die entsprechenden Zeilen herausnehmen und nur die "open" Anweisungen stehen lassen oder?

Gruss, Dura

Relais

2005-07-11 17:55

User since
2003-08-06
2246 Artikel
ModeratorIn

[quote=betterworld,11.07.2005, 15:20]Hmm, da muss man aber aufpassen. Falls man nicht $SIG{_ _DIE_ _} irgendwie manipuliert oder einen eval-Block benutzt, werden ja bei "die" die Fehlermeldungen nach STDERR ausgegeben. Aber das ist ja geschlossen.[/quote]
Oh, da hat wer aufgepaßt! ;-)

Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop (Termin wird noch gesucht) 2025 in München.

Winter is Coming

J-jayz-Z

2005-07-11 18:27

User since
2005-04-13
625 Artikel
BenutzerIn

STDERR ist nicht geschlossen. Es ist umgeleitet...
Dann erscheint die Ausgabe im Logfile und eben nicht auf der Konsole.

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de

renee

2005-07-11 18:45

User since
2003-08-04
14371 Artikel
ModeratorIn

Doch, erst wird STDERR geschlossen. Wenn jetzt z.B. $logfile nicht existiert, schlägt das open fehl und die wird ausgeführt. Aber STDERR ist immer noch geschlossen, weil open nicht erfolgreich war, STDERR ist also nicht umgeleitet!

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

J-jayz-Z

2005-07-11 18:48

User since
2005-04-13
625 Artikel
BenutzerIn

okay, stimmt. Ihr seid von seinem code ausgegangen, nicht von meinem... :blush:
Mein Fehler. Sry...

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de