On 18 Mar 2003 23:48:25 -0000, [EMAIL PROTECTED] (Steve Grazzini) wrote:

>James Kipp <[EMAIL PROTECTED]> wrote:
>> Navid M. <[EMAIL PROTECTED]> writes:
>>> 
>>> I was wondering if it's possible to save the error of
>>> a DOS command from the error stream into a variable.
>>> 
>> you could try the old 2>&1 trick  
>> $out = `$cmd 2>&1`;
>> 
>> or use system() and read the docs for capturing error codes:
>
>Assuming IPC::Open3 works on Windows [I believe that it does]
>you could also do:
>
>  sub readpipes {
>    require IPC::Open3;
>    my $pid = IPC::Open3::open3(my ($in, $out, $err), @_);

There is a nice module to make ipc even easier than IPC::Open3,
called Proc::Reliable

#!/usr/bin/perl
use Proc::Reliable;

$myproc = Proc::Reliable->new();

($out, $err, $status, $msg) = $myproc->run("ls");

print "STDOUT-> $out\n";
print "STDERR->$err\n";
print "EXIT STATUS-> $status\n";
print "MSG-> $msg\n";



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to