Re^3: Using IPC::Open3 instead of backtick operator

My open will capture both the STDERR and STDOUT messages. See below code...
Main:
#!/usr/bin/perl use warnings; use strict; open (IN, '-|', 'perl PrintStdoutStdErr.pl') or die "$!"; while (<IN>) { print; } __END__ prints: this went to STDERR this went to STDOUT
[download]
PrintStdoutStdErr.pl

#!/usr/bin/perl use warnings; use strict; $|=1; print STDOUT "this went to STDOUT\n"; print STDERR "this went to STDERR\n";
[download]
I actually wouldn't worry about Perl critic on an "ls" command.

Comment on Re^3: Using IPC::Open3 instead of backtick operator Select or Download Code

Replies are listed 'Best First'.
Re^4: Using IPC::Open3 instead of backtick operator by Anonymous Monk on Jun 10, 2016 at 20:59 UTC
My open will capture both the STDERR and STDOUT messages. No, it doesn't. `$ cat main.pl #!/usr/bin/perl use warnings; use strict; open (IN, '-\|', 'perl PrintStdoutStdErr.pl') or die "$!"; while (<IN>) { chomp; print "\"$_\"\n"; } $ perl main.pl 1>out 2>err $ cat out "this went to STDOUT" $ cat err this went to STDERR` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^4: Using IPC::Open3 instead of backtick operator
by Anonymous Monk on Jun 10, 2016 at 20:59 UTC

My open will capture both the STDERR and STDOUT messages.

No, it doesn't.

$ cat main.pl 
#!/usr/bin/perl
use warnings;
use strict;
open (IN, '-|', 'perl PrintStdoutStdErr.pl') or die "$!";
while (<IN>) {
    chomp;
    print "\"$_\"\n";
}
$ perl main.pl 1>out 2>err
$ cat out
"this went to STDOUT"
$ cat err
this went to STDERR
[download]

[reply]
[d/l]