Perl中是否存在可访问子程序返回值的系统变量？

好问题！首先直接给你答案：Perl没有专门用来存储上一个子程序返回值的内置特殊变量。像$1、$_这类特殊变量都是针对特定场景设计的——$1是正则匹配后的捕获组结果，$_是默认迭代/操作变量，但子程序的返回值并不会自动被存到某个全局特殊变量里。

那你想要的这种“调用子程序后直接用变量判断并取值”的需求，怎么实现呢？这里有几种简洁的写法：

• 最清晰的常规写法：先把返回值存到临时变量，再判断赋值

my $formatted_num = format($num);
my $var = defined $formatted_num ? $formatted_num : 'N/A';

• 用do块把逻辑压缩到一行：

my $var = do {
    my $res = format($num);
    defined $res ? $res : 'N/A'
};

• 利用变量赋值的返回特性，一行搞定（推荐这种，兼顾简洁和可读性）：

my $var = defined(my $res = format($num)) ? $res : 'N/A';

这里要注意：如果你的format子程序可能返回0或者空字符串这类“布尔假值”但属于有效结果的情况，一定要用defined判断，而不是直接用$res ? ...，否则会误把有效结果当成未定义处理。

Perl这么设计其实是有道理的——如果有一个全局变量存上一次子程序返回值，很容易在多调用场景下出现意外覆盖，导致难以排查的bug，所以直接传递返回值是更安全的做法。

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