In einem bash Skript kann ich STDIN und STDERR so umleiten:

exec >/tmp/zz.log 2>&1

Das gilt dann fuer alle nachfolgenden Kommandos.

Ich such dazu ein Perl-Aequivalent. Damit:

open $log,'>','/tmp/zz.log' or die $!;
*STDOUT = $log;
*STDERR = $log;
print "test\n";
system("pwd")

landet in /tmp/zz.log nur "test", nicht aber der output vom pwd.

--
Ullrich Horlacher Server und Virtualisierung
Rechenzentrum TIK
Universitaet Stuttgart E-Mail: horlacher@tik.uni-stuttgart.de
Allmandring 30a Tel: ++49-711-68565868
70569 Stuttgart (Germany) WWW: https://www.tik.uni-stuttgart.de/

Ulli Horlacher <framstag@rus.uni-stuttgart.de> wrote:
> In einem bash Skript kann ich STDIN und STDERR so umleiten:
>
> exec >/tmp/zz.log 2>&1

ARGH!
Das muss latuernich "STDOUT und STDERR" heissen!
Subject angepasst :-}

--
Ullrich Horlacher Server und Virtualisierung
Rechenzentrum TIK
Universitaet Stuttgart E-Mail: horlacher@tik.uni-stuttgart.de
Allmandring 30a Tel: ++49-711-68565868
70569 Stuttgart (Germany) WWW: https://www.tik.uni-stuttgart.de/

Am 16.05.24 um 09:47 schrieb Ulli Horlacher:
> In einem bash Skript kann ich STDIN und STDERR so umleiten:
>
> exec >/tmp/zz.log 2>&1
>
> Das gilt dann fuer alle nachfolgenden Kommandos.
>
> Ich such dazu ein Perl-Aequivalent. Damit:
>
> open $log,'>','/tmp/zz.log' or die $!;
> *STDOUT = $log;
> *STDERR = $log;
> print "test\n";
> system("pwd")
>
> landet in /tmp/zz.log nur "test", nicht aber der output vom pwd.

Hattu Kopp wie Sieb, muttu aufschreiben!

> Am 14.02.23 um 16:46 schrieb Ulli Horlacher:
>> Markus Schaaf <mschaaf@elaboris.de> wrote:
>>> Am 14.02.23 um 15:30 schrieb Ulli Horlacher:
>>>> Ich moechte STDERR lokal umdefinieren (output verwerfen).
>>>>
>>>> So funktionierts leider nicht:
>>>>
>>>> {
>>>> open(local *STDERR,'>','/dev/null');
>>>> system qw'ls -l',@files;
>>>> }
>>>>
>>>> system muss ohne Shell funktionieren, weil @files problematische Zeichen
>>>> enthaelt.
>>>
>>> use IPC::Run qw( run );
>>> run [ qw'ls -l', @files ], '2>', '/dev/null' or die $?;
>>
>> IPC::Run ist nicht Bestandteil von Perl CORE.
>> Es muss mit Standard Perl funktionieren.
>
> Du bist aber schwierig: :-)
>
> use POSIX;
> my $ostderr = POSIX::dup( 2 );
> POSIX::dup2( POSIX::open( "/dev/null", &POSIX::O_RDWR ), 2 );
> system qw( ls a );
> POSIX::dup2( $ostderr, 2 );
> POSIX::close( $ostderr );
>
> MfG
>

Ulli Horlacher <framstag@rus.uni-stuttgart.de> wrote:
>
> Ich such dazu ein Perl-Aequivalent. Damit:
>
> open $log,'>','/tmp/zz.log' or die $!;
> *STDOUT = $log;
> *STDERR = $log;
> print "test\n";
> system("pwd")
>
> landet in /tmp/zz.log nur "test", nicht aber der output vom pwd.

Das ist grundsätzlich schon richtig, aber mit 'system()' geht das ja gar
nicht über perl, sondern schreibt direkt. Folgendes funktioniert bei mir
(der Block und die Benutzung von local ist nicht zwingend, aber eine
elegante Methode, um das zu begrenzen/rückgängig zu machen):

{
open my $log, '>', '/tmp/zz.log' or die $!;
local *STDOUT = $log;
local *STDERR = $log;

print "test\n";
print qx(pwd);
}

Heiko

Markus Schaaf <mschaaf@elaboris.de> wrote:
> Am 16.05.24 um 09:47 schrieb Ulli Horlacher:
>> In einem bash Skript kann ich STDIN und STDERR so umleiten:
>>
>> exec >/tmp/zz.log 2>&1
>>
>> Das gilt dann fuer alle nachfolgenden Kommandos.
>>
>> Ich such dazu ein Perl-Aequivalent. Damit:
>>
>> open $log,'>','/tmp/zz.log' or die $!;
>> *STDOUT = $log;
>> *STDERR = $log;
>> print "test\n";
>> system("pwd")
>>
>> landet in /tmp/zz.log nur "test", nicht aber der output vom pwd.
>
> Hattu Kopp wie Sieb, muttu aufschreiben!
>
>> Am 14.02.23 um 16:46 schrieb Ulli Horlacher:
>>> Markus Schaaf <mschaaf@elaboris.de> wrote:
>>>> Am 14.02.23 um 15:30 schrieb Ulli Horlacher:
>>>>> Ich moechte STDERR lokal umdefinieren (output verwerfen).

Da gings nur um STDERR und ausserdem ist das ja ueber ein Jahr her (faule
Ausrede)!

>> use POSIX;
>> my $ostderr = POSIX::dup( 2 );
>> POSIX::dup2( POSIX::open( "/dev/null", &POSIX::O_RDWR ), 2 );
>> system qw( ls a );
>> POSIX::dup2( $ostderr, 2 );
>> POSIX::close( $ostderr );

Das schreibt nur STDERR nach /dev/null
Ich will aber STDERR und STDOUT in ein logfile schreiben, nicht verwerfen.

So gehts nicht:

framstag@diaspora:/sw/share/fstools-0.0/examples: cat outputredirect.pl
#!/usr/bin/perl -w

use POSIX;

print "\nregular output:\n";
vsystem(qw'ls -l ZZ',$0);
$out = 'out.log';
print "\nredirected to $out:\n";
output($out);
system(qw'ls -l ZZ',$0);

sub output {
my $out = shift;
POSIX::dup2(POSIX::open($out,&POSIX::O_RDWR),1);
POSIX::dup2(POSIX::open($out,&POSIX::O_RDWR),2);
}

framstag@diaspora:/sw/share/fstools-0.0/examples: ./outputredirect.pl

regular output:
# ls -l ZZ ./outputredirect.pl
ls: cannot access 'ZZ': No such file or directory
-rwxr-xr-x 1 framstag users 591 May 16 14:15 ./outputredirect.pl

redirected to out.log:
Use of uninitialized value in subroutine entry at ./outputredirect.pl line 14.
Use of uninitialized value in subroutine entry at ./outputredirect.pl line 15.
# ls -l ZZ ./outputredirect.pl
ls: cannot access 'ZZ': No such file or directory
-rwxr-xr-x 1 framstag users 591 May 16 14:15 ./outputredirect.pl

Und wieso die Fehlermeldung?

--
Ullrich Horlacher Server und Virtualisierung
Rechenzentrum TIK
Universitaet Stuttgart E-Mail: horlacher@tik.uni-stuttgart.de
Allmandring 30a Tel: ++49-711-68565868
70569 Stuttgart (Germany) WWW: https://www.tik.uni-stuttgart.de/

Ulli Horlacher <framstag@rus.uni-stuttgart.de> wrote:

> Ich will aber STDERR und STDOUT in ein logfile schreiben, nicht verwerfen.
>
> So gehts nicht:
>
>
> framstag@diaspora:/sw/share/fstools-0.0/examples: cat outputredirect.pl
> #!/usr/bin/perl -w
>
> use POSIX;
>
> print "\nregular output:\n";
> vsystem(qw'ls -l ZZ',$0);
> $out = 'out.log';
> print "\nredirected to $out:\n";
> output($out);
> system(qw'ls -l ZZ',$0);
>
> sub output {
> my $out = shift;
> POSIX::dup2(POSIX::open($out,&POSIX::O_RDWR),1);
> POSIX::dup2(POSIX::open($out,&POSIX::O_RDWR),2);
> }

Falsche POSIX modes!

So funktionierts:

framstag@diaspora:/sw/share/fstools-0.0/examples: cat outputredirect.pl
#!/usr/bin/perl -w

use POSIX;

print "\nregular output:\n";
vsystem(qw'ls -l ZZ',$0);
$out = 'out.log';
print "\nredirected to $out:\n";
output($out);
vsystem(qw'ls -l ZZ',$0);

sub output {
my $out = shift;
my $mode = &POSIX::O_CREAT | &POSIX::O_WRONLY | &POSIX::O_APPEND;
POSIX::dup2(POSIX::open($out,$mode),1);
POSIX::dup2(POSIX::open($out,$mode),2);
}

framstag@diaspora:/sw/share/fstools-0.0/examples: ./outputredirect.pl

regular output:
# ls -l ZZ ./outputredirect.pl
ls: cannot access 'ZZ': No such file or directory
-rwxr-xr-x 1 framstag users 641 May 16 14:28 ./outputredirect.pl

redirected to out.log:

framstag@diaspora:/sw/share/fstools-0.0/examples: cat out.log
# ls -l ZZ ./outputredirect.pl
ls: cannot access 'ZZ': No such file or directory
-rwxr-xr-x 1 framstag users 641 May 16 14:28 ./outputredirect.pl

--
Ullrich Horlacher Server und Virtualisierung
Rechenzentrum TIK
Universitaet Stuttgart E-Mail: horlacher@tik.uni-stuttgart.de
Allmandring 30a Tel: ++49-711-68565868
70569 Stuttgart (Germany) WWW: https://www.tik.uni-stuttgart.de/