perlquestion
apomatix
<p>I want to get both the output and status of a pipe.
Here is a working example:</p>
<code>
#!/usr/bin/perl
use strict;
open my $fh, '-|', 'bash -c "echo Hello; exit 1"';
print <$fh>;
close $fh;
my $status = $? >> 8;
print "$status\n";
</code>
<p>Fine. It outputs</p>
<code>
Hello
1
</code>
<p>Now let's try to use autodie:</p>
<code>
#!/usr/bin/perl
use strict;
use autodie;
open my $fh, '-|', 'bash -c "echo Hello; exit 1"';
print <$fh>;
close $fh;
my $status = $? >> 8;
print "$status\n";
</code>
<p>No good, that breaks it:</p>
<code>
Hello
Can't close(GLOB(0x10082a098)) filehandle: '' at test.pl line 7
</code>
<p>It is the "close" statement. So we can take that out.</p>
<code>
use strict;
use autodie;
open my $fh, '-|', 'bash -c "echo Hello; exit 1"';
print <$fh>;
#close $fh;
my $status = $? >> 8;
print "$status\n";
</code>
<p>Now it is broken differently---it has lost the exit status:</p>
<code>
Hello
0
</code>
<p>I need to call close in order to get the exit status of a pipe.</p>
<p>So now I have settled on this ugly thing:</p>
<code>
use strict;
use autodie;
open my $fh, '-|', 'bash -c "echo Hello; exit 1"';
print <$fh>;
{no autodie;
close $fh;}
my $status = $? >> 8;
print "$status\n";
</code>
<p>That seems to work, but I'm not doing any error checking on the close statement:</p>
<code>
Hello
1
</code>
Can I use close with autodie when my pipe fails? If not, how should I check for errors?