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

Update


I'm going to go with greenFox's response, because thats definately what I'm looking for, although the other responses were not wrong! thanks.

-----------------------Update Above-------------------------
I want to handle any errors that find comes accross, instead it spitting to standard out. Is there some way to do this? Im sure there is, here is my attempt which failed. Thanks!
    foreach $spamuser (@users) {


        my $CUR_INBOX = "$MAIL_ROOT/$spamuser/cur";

        @ham = `find $CUR_INBOX -type f` or warn "Error!\n";
}

[download]
  • Comment on backticks spits out error, but I want to handle errors! *shakes fist*
  • Download Code

Replies are listed 'Best First'.
Re: backticks spits out error, but I want to handle errors! *shakes fist*
by andyford (Curate) on Aug 16, 2006 at 23:43 UTC
    Well if you want real control, try File::Find module. It's been included with Perl for, well, somebody help me out here...

    andyford
    or Andy Ford

[reply]
      i never wanna live without corelist again: 
      $ corelist File::Find

File::Find  was first released with perl 5

      [download]
[reply]
[d/l]
Re: backticks spits out error, but I want to handle errors! *shakes fist*
by diotalevi (Canon) on Aug 16, 2006 at 23:45 UTC

    Use IPC::Open3.

    use IPC::Open3 'open3';

$SIG{CHLD} = 'IGNORE'; # see perlipc for the scoop
open3( undef, my $ham_fh, my $ham_err_fh,
       'find', $CUR_INBOX, '-type', 'f' );
<$ham_err_fh> or warn "Error!\n";

@ham = <$ham_fh>;

    [download]

    ⠤⠤ ⠙⠊⠕⠞⠁⠇⠑⠧⠊

[reply]
[d/l]
Re: backticks spits out error, but I want to handle errors! *shakes fist*
by greenFox (Vicar) on Aug 17, 2006 at 03:26 UTC

    Check $? (perlvar). Something like: 

    foreach $spamuser (@users) {
    my $CUR_INBOX = "$MAIL_ROOT/$spamuser/cur";
    @ham = `find $CUR_INBOX -type f 2>&1`;
    $? and die "@ham $!";
}

    [download]

    --
    Do not seek to follow in the footsteps of the wise. Seek what they sought. -Basho

[reply]
[d/l]
Re: backticks spits out error, but I want to handle errors! *shakes fist*
by rodion (Chaplain) on Aug 16, 2006 at 23:28 UTC
    Try re-routing STDERR to STDOUT within the backtick command. You will then have to pick it out of the output. Another way is to pipe STDERR to a file, then look to see if the file is empty, and retrieve the contents of it if it isn't.
[reply]
Re: backticks spits out error, but I want to handle errors! *shakes fist*
by Anonymous Monk on Aug 17, 2006 at 02:03 UTC
[reply]

Back to Seekers of Perl Wisdom