参考PHP异常用法，Perl如何创建、抛出与继承自定义异常？

Perl 异常的核心运行原理 #

Perl 没有内置面向对象异常的专属语法关键字，整套异常体系的运作逻辑非常直白：

• 所有异常本质是代码执行流中断时抛出的任意值，既可以是简单字符串、数字，也可以是完整的类对象
• 触发异常的核心函数是die（正式环境通常会用核心模块提供的croak替代，输出更清晰的调用栈信息），一旦触发异常，当前的代码执行流会立即终止，把抛出的内容传递给上层捕获逻辑
• 没有被上层捕获的异常会直接导致脚本终止执行，同时把异常内容输出到标准错误流（STDERR）
• 开发者可以自由设计不同异常类的继承层级，完全实现和PHP一致的异常分类处理逻辑

对标PHP场景的Perl异常实现 #

你提到的PHP中定义InvalidArgumentException、传入自定义错误消息、主动抛出、基于基类派生子类的能力，在Perl中可以通过类的继承机制完整实现，具体写法分两类：

无第三方依赖的原生实现 #

Perl的包机制本质就是轻量的面向对象类实现，不需要额外工具就可以搭建层级化的自定义异常体系：

1. 先定义基础异常父类，实现构造方法和消息输出能力：

   # 基础异常父类
   package App::Exception;
   sub new {
       my ($class, $error_msg) = @_;
       # 把错误消息存在对象属性里
       return bless { msg => $error_msg }, $class;
   }
   # 重载字符串转换逻辑，让异常被打印时直接输出自定义消息
   use overload '""' => sub { shift->{msg} };
   
   # 继承出参数非法的异常子类，完全对标PHP的InvalidArgumentException
   package App::Exception::InvalidArgument;
   # 声明继承关系
   our @ISA = ('App::Exception');
   

2. 对应业务逻辑中抛出异常，和示例PHP代码的逻辑完全对齐：

   if ($groupId == 0) {
       # 抛出异常类对象，和PHP的throw语义一致
       die App::Exception::InvalidArgument->new('Current group not found');
   }
   

   上层可以通过eval块捕获抛出的异常，判断异常所属的类名来做分支处理，和PHP的catch逻辑完全等价。

生产环境常用的简化实现 #

如果不想手动编写所有异常类的模板代码，可以用核心分发的Exception::Class模块快速生成带层级的异常类，减少重复代码：

use Exception::Class (
    'App::Exception', # 基础异常类
    'App::Exception::InvalidArgument' => {
        isa => 'App::Exception' # 声明子类的继承关系
    },
);

# 业务中抛出异常
if ($groupId == 0) {
    App::Exception::InvalidArgument->throw('Current group not found');
}

异常捕获的基础写法 #

和PHP的try-catch块对应，Perl原生的捕获逻辑是把可能触发异常的代码包裹在eval块中，通过内置变量$@获取抛出的异常内容：

eval {
    # 执行可能抛出异常的业务代码
    validate_group($groupId);
};
# 获取捕获到的异常
if (my $e = $@) {
    # 判断异常类型做分支处理
    if ($e->isa('App::Exception::InvalidArgument')) {
        print "参数校验失败：" . $e->message;
    } else {
        # 不匹配的异常直接重新抛出
        die $e;
    }
}

内容的提问来源于stack exchange，提问作者Gregory Sysoev