Proc::WaitStat - Interpret and act on wait() status values
$description = waitstat $?;
exit waitstat_reuse $?;
waitstat_die $?, 'program-name';
close_die COMMAND, 'program-name';
This module contains functions for interpreting and acting on wait status
values.
Nothing is exported by default.
- waitstat wait-status
- Returns a string representation of wait() status value
wait-status. Values returned are like
"0" and
"64" and "killed
(SIGHUP)".
This function is prototyped to take a single scalar
argument.
- waitstat_reuse wait-status
- Turn wait-status into a value which can be passed to exit,
converted in the same manner the shell uses. If wait-status
indicates a normal exit, return the exit value. If wait-status
instead indicates death by signal, return 128 plus the signal number.
This function is prototyped to take a single scalar
argument.
- waitstat_die wait-status program-name
- die() if wait-status is non-zero (mentioning
program-name as the source of the error).
This function is prototyped to take two scalar arguments.
- close_die filehandle name
- Close filehandle, if that fails die() with an appropriate
message which refers to name. This handles failed closings of both
programs and files properly.
This function is prototyped to take a filehandle (actually, a
glob ref) and a scalar.
close SENDMAIL;
exit if $? == 0;
log "sendmail failure: ", waitstat $?;
exit EX_TEMPFAIL;
$pid == waitpid $pid, 0 or croak "Failed to reap $pid: $!";
exit waitstat_reuse $?;
$output = `some-program -with args`;
waitstat_die $?, 'some-program';
print "Output from some-process:\n", $output;
open PROGRAM, '| post-processor' or die "Can't fork: $!";
while (<IN>) {
print PROGRAM pre_process $_
or die "Error writing to post-processor: $!";
}
# This handles both flush failures at close time and a non-zero exit
# from the subprocess.
close_die PROGRAM, 'post-processor';
Roderick Schertler <roderick@argon.org>
perl(1), IPC::Signal(3pm).