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]
