Perl进行错误处理和创建子程序的示例

在Perl中，创建子程序（也就是其他语言里常说的“函数”）其实有一套很清晰的套路。咱们先看最基础的写法：用sub关键字，后面跟上子程序的名字，再跟着一对大括号把代码块包起来。参数怎么传？所有传入的参数都存放在@_这个特殊数组里，你需要手动从里面取出来。

举个简单的例子：

sub my_subroutine {
    my $param1 = shift; # 获取第一个参数
    # 子程序的代码...
    print "Hello, $param1!n";
}
# 调用子程序
my_subroutine("World"); # 输出: Hello, World!

这里shift从@_里取出第一个元素，然后打印出来。当然，你也能直接用数组解构的方式让代码更清晰：

sub greet {
    my ($name) = @_; # @_ 数组解构为一个名为 $name 的标量
    print "Hello, $name!n";
}
# 调用子程序
greet("Alice"); # 输出: Hello, Alice!

如果用的是Perl 5.16及以上版本，还能用签名特性（:signatures），参数可以直接写在子程序名后面，看起来更直观：

use feature 'signatures';
no warnings 'experimental::signatures';
sub greet($name) {
    print "Hello, $name!n";
}
# 调用子程序
greet("Bob"); # 输出: Hello, Bob!

签名方式最大的好处是——一眼就能看出子程序需要几个参数、叫什么名字，代码可读性直接拉满。

说完子程序，再来聊聊错误处理。Perl提供了多种机制来应对程序运行中的意外情况，核心思路就是：要么提前检查，要么捕获异常。

最直接的——die和warn
die用于抛出异常并终止程序，后面接上错误信息：

die "Something went wrong." if some_condition;

warn则温和一些，只发出警告，不会中断程序流程，适合记录问题但不影响后续执行。

捕获异常——eval块
eval相当于其他语言里的try-catch。把可能出错的代码放在eval块里，如果发生异常，错误信息会存储在$@变量中：

eval {
    # 可能抛出错误的代码
};
if ($@) {
    # 错误处理代码
    warn "An error occurred: $@";
}

系统错误的细节——$!变量
当系统调用（比如打开文件）失败时，$!会包含具体的错误描述，配合die使用更精准：

if (!open(FILE, 'filename')) {
    die "Cannot open file $file: $!";
}

条件判断——if和unless
检查函数返回值是最常见的做法，比如文件打开失败就终止：

if (!open(FILE, 'filename')) {
    die "Error: Cannot open file - $!";
}

unless是if的反向版本，当条件为假时执行：

unless (chdir('/etc')) {
    die "Error: Cannot change directory - $!";
}

更专业的错误报告——Carp模块
Carp模块提供了carp和croak，它们比warn和die更智能，能报告调用链上的具体位置，调试时非常有用。

自定义错误处理 & 资源管理
你还可以自己写子程序来处理特定错误，让错误处理逻辑更模块化。另外，tie函数可以绑定外部资源，并在资源使用完后自动释放，减少资源泄露的风险。

说到底，Perl给了开发者足够多的工具来写出健壮的代码——从简单的条件检查到完整的异常捕获，每种场景都有对应的最佳实践。关键是理解这些机制各自的特点，然后在实际项目中灵活选用，让程序既能优雅地处理错误，又不至于让代码变得臃肿。