well I found the answer to my question:
use strict;
use IPC::Open3;
local(*stdin, *stdout, *stderr);
open3(\*stdin, \*stdout, \*stderr, "perl testeSTDERR.pl");
print(join(", ", <stderr>));
close *stdin;
close *stdout;
close *stderr;
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Monday, July 28, 2003 10:38 AM
Cc: [EMAIL PROTECTED]
Subject: catching STDERR
For testing I have this script
:::::: testeSTDERR.pl :::::::::::::::::::::::::::::
warn "$_\n" foreach (1..10);
:::::::::::::::::::::::::::::::::::::::::::::::::::
:::::: showSTDERR.pl ::::::::::::::::::::::::::::::
use strict;
open FILE, "perl testeSTDERR.pl |2 ";
print(join(", ", <FILE>));
close FILE;
:::::::::::::::::::::::::::::::::::::::::::::::::::
So I'm trying to get the STDERR. How do I do this?
Thanks
Marcos
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
