Perl 5.38 发布

Perl 5.38 已正式发布，以下为此版本部分新特性：

新 class 功能

现在可以使用新的实验性语法来定义对象类，其中每个实例的数据存储在行为类似于词汇的“字段”变量中。

 use feature 'class';   class Point {     field $x;     field $y;       method zero { $x = $y = 0; } }

这是一个新的实验性功能，并且仍在开发中。

支持 Unicode 15.0

有关 Unicode 15.0 的详细信息，请参阅 https://www.unicode.org/versions/Unicode15.0.0/。

弃用警告有特定的子类别

所有弃用警告现在都有自己特定的弃用类别，可以单独禁用。可以在 perldeprecation 和警告中查看所有已弃用功能的列表。

 +- deprecated ----+ |                 | |                 +- deprecated::apostrophe_as_package_separator |                 | |                 +- deprecated::delimiter_will_be_paired |                 | |                 +- deprecated::dot_in_inc |                 | |                 +- deprecated::goto_construct |                 | |                 +- deprecated::smartmatch |                 | |                 +- deprecated::unicode_property_name |                 | |                 +- deprecated::version_downgrade

仍然可以在单个语句中禁用所有弃用警告

 no warnings 'deprecated';

但现在可以进行更细粒度的控制，这些警告会自动启用

 use warnings;

%{^HOOK} API 引入

引入了一个名为 %{^HOOK} 的新哈希，当关键字支持任何类型的特殊 hook 时，该 hook 将存在于这个新的哈希中。此哈希中的 hook 将以调用它们的函数命名，后跟两个下划线，然后是它们执行的阶段，当前是在执行关键字之前或之后。

此初始版本支持两个 hooks：require__before 和 require__after ，可更轻松地在 require 语句之前和之后执行任务。

有关详细信息，请参阅 perlvar 。

PERL_RAND_SEED

添加了一个新的环境变量 PERL_RAND_SEED ，可用于导致 Perl 程序使用 rand 而不显式使用 srand() 或使用 srand() 没有可重复的参数。详情参见 perlrun。

可以在编译时通过传递禁用此功能

 -Accflags=-DNO_PERL_RAND_SEED

在构建过程中进行配置。

签名中的定义或和逻辑或赋值默认表达式

现在可以使用 //= 或 ||= 运算符分配子例程签名参数的默认表达式，以便在调用者（分别）提供未定义或 false 值时应用默认值，而不仅限于当参数完全丢失时。

有关更多详细信息，请参阅 perlsub 中的文档。

@INC Hook 增强功能以​​及 $INC 和 INCDIR

@INC hook 的内部结构已得到强化，可以处理各种边缘情况，且当 hook 在 require 操作期间修改 @INC 时，不再出现段错误或抛出断言失败。现在确保任何给定的钩子在 require 调用期间最多执行一次，并且任何重复的目录不会触发额外的目录探测。

为了更好地控制动态模块查找，现在支持新的 hook 方法 INCDIR 。支持该方法的对象可以被注入到 @INC 数组中，当模块搜索过程中遇到它时就会执行它，就像 INC hook 的执行方式一样，其返回值作为列表使用用于搜索模块的目录。返回空列表相当于无操作。

@INC 中不支持 INC 或 INCDIR 方法的 Blessed CODE 引用将不再触发异常，而是被视为与 Unblessed coderef 相同，并像 INC hook 一样执行。

REG_INF 已从 65,536 增加到 2,147,483,647

许多正则表达式量词过去仅限于 U16_MAX ，但现在仅限于 I32_MAX ，因此现在可以编写 /(?:word){1000000}/ 。请注意，这样做可能会导致正则表达式引擎运行时间更长并使用更多内存。

defer 和 finally 块中允许某些 goto

Perl 版本 5.36.0 添加了 defer 块，并允许 finally 关键字添加与 try / catch 语法类似的行为。但不允许主体内有任何 goto 表达式，因为它可能导致控制流跳出块。

现在，部分goto 表达式已被允许添加，如果它们具有恒定的目标标签，并且该标签可在块中找到。

 use feature 'defer';   defer {   goto LABEL;   print "This does not execute\n";   LABEL: print "This does\n"; }

 

以上为部分重点更新功能，完整的功能变更和弃用/修复，可在官方公告中查看。