WaitStat
Section: User Contributed Perl Documentation (3)
Updated: 1999-10-21
Page Index
NAME
Proc::WaitStat - Interpret and act on wait() status values
SYNOPSIS
$description = waitstat $?;
exit waitstat_reuse $?;
waitstat_die $?, 'program-name';
close_die COMMAND, 'program-name';
DESCRIPTION
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.
EXAMPLES
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';
AUTHOR
Roderick Schertler <
roderick@argon.org>
SEE ALSO
perl(1),
IPC::Signal(3pm).