Thread Perl Programmteile mitloggen (5 answers)
Opened by PROXEN at 2013-10-14 22:12

PROXEN
 2013-10-20 10:44
#171333 #171333
User since
2013-07-23
21 Artikel
BenutzerIn
[default_avatar]
Hallo,

eigentlich schaut das so aus Prog1 ruft Prog2 auf, wie kann ich jetzt einfach Teile des Programms mitloggen. Am liebsten wäre mir wenn ich das irgendwie aktivieren, deaktivieren aktivieren etc. im Programm könnte, sodaß nur bestimmte Teile mitgeloggt werden, bestimmte prints, open Aufrufe etc. gleichzeitig sollte aber alles in der Console angezeigte werden.
sowas perl prog1.pl > log.txt geht nicht - da hab ich keine Consolenanzeige mehr da geht alles in die Datei?


Prog1:
Code: (dl )
1
2
3
4
5
use strict;
use warnings;
print "main program\n";
my @args = ("/usr/bin/perl","prog2.pl", "Hallo");
system(@args) or die "system failed: $?";


Prog2:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
use strict;
use warnings;

my $var = $ARGV[0];

print $var;

open(PS,"ssh -t test\@10.0.0.2 'ls -ltr' |") || die "Error: $!n";
while(<PS>)
{
print "$_";
}



thx

View full thread Perl Programmteile mitloggen