die 函数与内置变量 $!

beyes

当 Perl 遇到严重错误时，如除以零，使用了不合法的正则表达式，调用了未定义的子程序，此时应该终止程序运行，并打印出错误信息以知晓错误的原因 --- 这样的功能可以由 die 函数来实现。

die 函数会输出你指定的信息到标准错误流中，然后立刻终止程序，并返回不为零的退出码。

$! 是 Perl 内置的特殊变量，它用来保存系统错误信息，也就是说只有在请求系统服务失败后，$! 的值才是有意义的；如果操作成功，那么 $! 里不会有任何有用信息。

如下示例：

[Perl] 纯文本查看 复制代码

#!/usr/bin/perl
if (! open SUDO, "/etc/sudoers") {
        die "Error: $!"
}
print "never can get here";

运行输出：

./handle.pl
Error: Permission denied at ./handle.pl line 5.

使用普通用户无法打开 /etc/sudoers 配置文件，因此会产生

Permission denied

的错误提示，同时并终止程序，因此不会打印 "never can get here" 这一行信息。