John Dunbar wrote:
> Kevin, thank you for comprehensive reply.
>
>> Well, the safest and most direct way would be to replace/augment all the
>> prints to STDERR (like "warn" and "die") inside your script with
>> log4perl logger calls.
>
> I would prefer this solution, but how can I the redirect whole output
> (or STDERR atleast) of the external command to die?
> I am almost perl beginner, sorry, if this question is too easy.
Sorry, I was assuming that this external command was perl code you had
written. If it's some other command you don't have access to, then you
can either wrap it in perl and use temp files to capture the output
my $stdout = `command 2>/tmp/securetempfile`;
or
system("command 2>/tmp/stderr.out 1>/tmp/stdout.out");
(but use File::Temp to create the tempfile names, and keep in mind that
the tempfiles can be accessed by anyone on that machine).
>> Or you could pipe the output of your script to another script that reads
>> STDIN and implements logging like this:
>>
>> command 2>&1 | perl -e 'use Log::Log4perl qw/:easy/; \
>> Log::Log4perl::easy_init($INFO); \
>> while (<STDIN>){INFO $_}'
>
> Can I do this in perl script directly?
>
> use Log::Log4perl qw/:easy/;
> Log::Log4perl::easy_init($INFO);
> $pid = open(STDIN, "ls nonsense 2>/dev/null |");
> while (<STDIN>){INFO $_};
See above with the backticks or the system call.
> Is there any way how to redirect STDOUT to INFO and STDERR to ERROR?
> If both is not possible, STDERROR to ERROR is more important.
The tempfiles is a hacky but fairly reliable way to do it. See also
IPC::Open3, where you can get the stdout and stderr of your child
process on differen handles.
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2005.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
log4perl-devel mailing list
log4perl-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/log4perl-devel
