ErrnoSection: Perl Programmers Reference Guide (3)Updated: 2001-09-21 |
ErrnoSection: Perl Programmers Reference Guide (3)Updated: 2001-09-21 |
use Errno qw(EINTR EIO :POSIX);
"Errno" also makes "%!" magic such that each element of "%!" has a non-zero value only if $! is set to that value. For example:
use Errno;
unless (open(FH, "/fangorn/spouse")) {
if ($!{ENOENT}) {
warn "Get a wife!\n";
} else {
warn "This path is barred: $!";
}
}
If a specified constant "EFOO" does not exist on the system, $!{EFOO} returns "". You may use "exists $!{EFOO}" to check whether the constant is available on the system.
if (exists &Errno::EFOO) {
$! = &Errno::EFOO;
}