in reply to IPC::System::Simple: Why isn't my exception caught?

capture('bash', '-o', 'pipefail', '-c',
   'cat "$1" | wc -l',
      'dummy', $file)

[download]

This also solves your problem with file names with spaces or other shell metachars.

This is just an example, right? Cause you could use the following or a small amount of Perl code. 

capture('wc', '-l', $file)

[download]

Replies are listed 'Best First'.
Re^2: IPC::System::Simple: Why isn't my exception caught?
by karlgoethebier (Abbot) on Nov 20, 2013 at 20:24 UTC

    Your advice looks a bit like hermetism to me - for the moment ;-)

    So i need just a moment to think about/try it.

    But BTW, here is what i figured out in a hurry using IPC::Run as advised by kschwab:

    
#!/usr/bin/env perl                                                   
+      

use IPC::Run qw( start finish );
use strict;
use warnings;

my @cat = qw( cat foo );

my @wc = qw( wc -l);

my $h = start \@cat, '|', \@wc, '2>', '/dev/null';

$h->finish;

print $h->full_result(0) . qq(\n);

print $h->full_result(1) . qq(\n);

__END__

karls-mac-mini:Desktop karl$ ./ipc.pl                                 
+                           
       0                                                              
+                            
1                                                                     
+                            
0

    [download]

    Looks good/like expected. Best regards, Karl

    «The Crux of the Biscuit is the Apostrophe»

[reply]
[d/l]

In Section Seekers of Perl Wisdom