Perl中定义偏函数的最常用/惯用方式是什么？（不依赖CPAN模块）

Perl没有原生的Maybe类型，但有几种符合惯用风格的方式来实现偏函数，以下是最常用的几种：

1. 返回undef并抛出警告 #

这是最接近Haskell Maybe风格的做法——用undef表示无有效返回值，同时通过warn给出上下文提示，调用方可以通过defined()判断结果是否有效。

示例：实现安全的safeHead

sub safeHead {
    my ($list) = @_;
    unless (@$list) {
        warn "safeHead called on empty array";
        return undef;
    }
    return $list->[0];
}

# 调用示例
my $val = safeHead([]);
if (!defined $val) {
    # 处理无结果的情况
}

2. 用die直接终止程序（断言风格） #

如果输入不符合条件时程序无法继续执行，可以用die抛出致命错误，类似C的assert，适合前置条件必须满足的场景（比如阶乘的负数输入）。

示例：带断言的阶乘函数

sub factorial {
    my ($n) = @_;
    die "factorial requires non-negative integer input" unless $n >= 0 && $n == int($n);
    
    my $result = 1;
    $result *= $n-- while $n > 0;
    return $result;
}

# 调用示例
# factorial(-5); # 会抛出致命错误并终止
print factorial(5); # 输出120

如果你想更接近C的assert语法，Perl 5.10及以上版本支持CORE::assert（默认禁用，需要启用）：

use feature 'assert';

sub factorial {
    my ($n) = @_;
    CORE::assert($n >= 0 && $n == int($n), "factorial input must be non-negative integer");
    
    my $result = 1;
    $result *= $n-- while $n > 0;
    return $result;
}

3. 返回约定的特殊值 #

类似C中返回-1的做法，你可以和调用方约定一个特殊值表示无效输入，但要注意这个值不能和正常返回值冲突。比如阶乘的正常返回都是正整数，就可以用-1表示负数输入。

示例：返回特殊值的阶乘函数

sub factorial {
    my ($n) = @_;
    return -1 unless $n >= 0 && $n == int($n);
    
    my $result = 1;
    $result *= $n-- while $n > 0;
    return $result;
}

# 调用示例
my $res = factorial(-3);
if ($res == -1) {
    # 处理无效输入
}

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