Re: Question regarding handling exceptions in subroutine

Replies are listed 'Best First'.
Re^2: Question regarding handling exceptions in subroutine by walkingthecow (Friar) on May 12, 2013 at 10:12 UTC
The loop is in script.pl and calls the subroutine from Script.pm. When I croak in Script.pm it makes script.pl exit, thus breaking the loop in script.pl. I'd rather have the subroutine in Script.pm return the error to a variable in script.pl. Hopefully that clears things up. I'm terrible at explaining things.	[reply]
Re^3: Question regarding handling exceptions in subroutine by moritz (Cardinal) on May 12, 2013 at 10:37 UTC
I'm not sure if I understood the question, but you can use eval in the script to catch the exceptions thrown from the module. Perl 6 - the future is here, just unevenly distributed	[reply]
Re^3: Question regarding handling exceptions in subroutine by space_monk (Chaplain) on May 12, 2013 at 11:28 UTC
The obvious answer is to remove the croak (or perhaps change it to a carp/warn). You can run a command in backticks to trap both the output and the status code it returns. So you should be able to do something like: my $response=`useradd fred ....`; #check the status code (0 = success) if ($? >>8) { # we could not add the user } [download] If you spot any bugs in my solutions, it's because I've deliberately left them in as an exercise for the reader! :-)	[reply] [d/l]
Re^4: Question regarding handling exceptions in subroutine by karlgoethebier (Abbot) on May 12, 2013 at 12:24 UTC
Shouldn't it be something like this? Update: OK, `eval`... `my $result; eval { $result = qx($command); }; if ( $? >> 8 != 0 ) { if ($@) { die $@; } else { die qq(Something really weird happened!); } } # do stuff with $result...` [download] Regards, Karl «The Crux of the Biscuit is the Apostrophe»	[reply] [d/l] [select]
Re^5: Question regarding handling exceptions in subroutine by space_monk (Chaplain) on May 13, 2013 at 10:28 UTC
Re^6: Question regarding handling exceptions in subroutine by karlgoethebier (Abbot) on May 13, 2013 at 12:31 UTC
Re^4: Question regarding handling exceptions in subroutine by karlgoethebier (Abbot) on May 12, 2013 at 12:23 UTC
Shouldn't it be: `my $result = qx($command); if ( $? >> 8 != 0 ) { if ($@) { die $@; } else { die qq(Something really weird happened!); } }` [download] Regards, Karl «The Crux of the Biscuit is the Apostrophe»	[reply] [d/l]