capture output of perl -c scriptname

cztmonk has asked for the wisdom of the Perl Monks concerning the following question:

I want to check whether Perl scripts compile correctly. I want to compile a bunch of perlscripts, within a pl script. So I want to capture the output of perl -c scriptname, the "ok" part, to check if syntax is ok. Why is the output always going to stderr? I want to capture it in $result.My code is:

BTW i am working on Windows...

use strict;
use warnings;

# Capture the output of the "dir" command:

my $dir=`dir compile.pl`;
print $dir;

# Now capture the output of this:
my $result=`perl -c compile.pl`;

# Check if there is anything in $result
print "Length is :".length($result);

exit 0;

# This results in the following output :

__DATA__
29-06-2012  11:44               412 compile.pl
.
.
compile.pl syntax OK
Length is :0
[download]

Comment on capture output of perl -c scriptname Select or Download Code

Replies are listed 'Best First'.
Re: capture output of perl -c scriptname by zentara (Cardinal) on Jun 29, 2012 at 10:44 UTC
Have you tried to combine STDERR into STDOUT? my $result=`perl -c compile.pl 2>&1 `; [download] I'm not really a human, but I play one on earth. Old Perl Programmer Haiku ................... flash japh	[reply] [d/l]
Re^2: capture output of perl -c scriptname by cztmonk (Monk) on Jun 29, 2012 at 10:49 UTC
This answers my question! Thank you very much...	[reply]
Re^3: capture output of perl -c scriptname by Anonymous Monk on Jun 29, 2012 at 11:02 UTC
If you're going to skip Test::Compile , it makes sense to learn more about your (and other) shells, see Behind the GUI lives the Shell and How Command Line Parameters Are Parsed	[reply]
Re: capture output of perl -c scriptname by Anonymous Monk on Jun 29, 2012 at 10:26 UTC
Why is the output always going to stdout? Because it must not be going to STDOUT ( backticks capture STDOUT ), it must be going to STDERR (backticks don't capture STDERR ) Observe (I'm also on windows ) $ perl -le " print 111, `perl -e print(666)` " 111666 $ perl -le " print 111, `perl -e warn(666)` " 666 at -e line 1. 111 [download] You want to use glob "C:/.sys" glob "C:/WINDOW/.ini" or File::Find::Rule, Re^2: code for serching .txt file through directories and sub directories, Re: list of files in subdirectories or use Test::Compile - Check whether Perl module files compile correctly What is is that you're really trying to do?	[reply] [d/l]
Re^2: capture output of perl -c scriptname by cztmonk (Monk) on Jun 29, 2012 at 10:31 UTC
I want to Check whether Perl scripts compile correctly. Thanks for the link to Test::Compile	[reply]
Re: capture output of perl -c scriptname by choroba (Cardinal) on Jun 29, 2012 at 10:20 UTC
Why is the output always going to stdout? It is not. It goes to STDERR, as you have experienced.	[reply]
Re^2: capture output of perl -c scriptname by cztmonk (Monk) on Jun 29, 2012 at 10:24 UTC
Thank you for this, I updated my question. Why can't I get the result into `$result`?	[reply] [d/l]