小写begin是否为Perl关键字？Perl 5.28代码异常问题咨询

在Debian系统下运行Perl 5.28脚本（启用了部分实验性扩展）时遇到异常行为：在Pascal-SQL-Perl混合编程场景中，误将if-else语句里的小写else写成了begin，代码虽能运行但功能异常。已知大写BEGIN属于Perl的预运行/后运行块（如BEGIN、UNITCHECK等），但小写begin却能让代码正常执行，且begin {...}块会在if (...) {...}之后直接执行，导致函数意外提前返回。请问在区分大小写的Perl语境中，小写begin是否有特殊含义？

测试代码：

#!/usr/bin/perl
use v5.20;
use strict;
use warnings;
use feature qw(signatures);
no warnings 'once';
no warnings 'experimental';
no warnings 'experimental::signatures';

&if_exotic(1000);
&if_normal(1000);

# --------------------------------------
# 错误写法
# --------------------------------------
sub if_exotic($want) {

   if ($want>0) {
       print "BAD: ..running $want operations\n";
   } begin {
       print "BAD: ..nothing to do\n";
       return;
   }

    print "Do something $want times\n";
   
}

# --------------------------------------
# 正确写法
# --------------------------------------
sub if_normal($want) {

   if ($want>0) {
       print "GOOD: ..running $want operations\n";
   } else {
       print "GOOD: ..nothing to do\n";
       return;
   }

    print "Do something $want times\n";
}

运行结果：

/usr/bin/perl "test-if-begin"
BAD: ..running 1000 operations
BAD: ..nothing to do
GOOD: ..running 1000 operations
Do something 1000 times

小写的begin并非Perl的关键字，也没有特殊语法含义。你代码里的begin { ... }被Perl解析为带标签的裸块——这里的begin只是一个无意义的标签（Perl允许省略标签后的冒号，直接紧跟代码块），这个块会被当作独立的语句直接执行，和前面的if语句没有任何逻辑关联。

在你的错误写法中：

• 当if ($want>0)条件成立时，先执行if块内的打印语句；
• 紧接着独立执行begin标签后的裸块，里面的return直接终止了函数，导致后续的print "Do something $want times\n"永远不会执行；
• 这就造成了和else分支完全不同的逻辑——else只有在if条件不成立时才会执行，而begin块不管if结果如何都会运行。

简单来说，你写的begin { ... }等价于直接写一个无标签的裸块{ ... }，只是多了一个无意义的begin标签，它既不是预运行块（大写BEGIN才是），也不是else的替代语法。

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