Perl 版本中向后不兼容的一些具体示例有哪些？

Question

从 Perl 1.0 首次公开发布（1987 年 12 月 18 日）到当前稳定版本 5.10.1（2009 年）已经过去了 22 年。

在这 22 年中，发布了以下值得注意的版本：

• Perl 1.0（1987 年 - 初始版本）
• Perl 2（1988 年 - 更好的正则表达式）
• Perl 3（1989 年 - 支持二进制数据流）
• Perl 4（1991 年 - 识别 Perl 的版本） Camel Book 中描述）
• Perl 5（1994 - 引入了重大变化，几乎完全重写了解释器）
• Perl 5.6（2000 - 64 位支持，unicode 字符串，大文件支持）
• Perl 5.8（2002 - 改进了 unicode 支持，新的 IO 实现） ）
• Perl 5.10（2007 - 新的 switch 语句、正则表达式更新、智能匹配运算符）

我正在寻找 Perl 历史上向后不兼容的具体示例。

问题：

• 在 Perl 22 年的历史中，是否有任何 Perl 向后不兼容的例子，即针对 Perl 版本 X 的 Perl 源代码无法在版本 Y 下运行（其中 Y > X）？

请包括尽可能提供参考和代码示例。

Answer 1

最大的故意不兼容性之一是数组插值，它在 Perl 4 和 Perl 5 之间发生了变化。

my @example = qw(1 2 3);
print "[email protected]";

在 Perl 4 中，这将是：

[email protected]

在 Perl 5 中，这将是：

foo1 2 3.com

幸运的是，如果数组不存在，Perl 会警告您“可能的意外插值” ”。

线程在 5.005 和 5.6 之间经历了很大的变化。 “5005 个线程”使用传统的 POSIX 线程模型，其中所有全局数据都是共享的。虽然理论上这更快，因为那时 Perl 只能使用 POSIX 线程，但这对 Perl 编码人员来说是一场噩梦。大多数 Perl 模块都不是线程安全的。而且它从来没有真正发挥过作用。

在5.6中，ActiveState等人在Windows上制作了fork()。当您在 Windows 上 fork() 时，Perl 会复制解释器对象并运行两个解释器的操作码。这被称为“多重性”。

在 5.8 中，Arthur Bergman 运行了它并用它来创建 ithread。由于多重性正在模拟一个单独的进程，因此默认情况下不会共享任何数据。只有您所说共享的数据才会被共享。这使得它们使用起来更加安全，尽管 ithreads 花了很长时间才稳定下来。伊丽莎白·马泰森 (Elizabeth Mattijsen) 和杰里·赫登 (Jerry Hedden) 等人让这一切成为现实。

5005个线程最终在5.10.0中被删除。存在兼容性层，但我怀疑它是否真的可以在生产代码中工作。

另一个很大的不兼容性是 5.6 和 5.8 之间的 Unicode。 5.6 中的 Unicode 爆发了。字符串是否是 Unicode 由周围的范围决定。它在 5.8 中被完全重新设计，因此现在字符串的 Unicode 性与字符串相关联。使用 5.6 的 Unicode 编写的代码通常必须在 5.8 中重写，通常是因为要使 5.6 的 Unicode 正常工作，您必须进行丑陋的 hack。

最近，5.10.1 对智能匹配进行了一系列不兼容的更改。幸运的是，它们是在 5.10.0 中引入的，所以这没什么大不了的。那里的故事是 Perl 6 引入了智能匹配概念，并将其向后移植到 Perl 5 的开发版本。随着时间的推移，Perl 6 的智能匹配理念发生了变化。没有人告诉 Perl 5 的人，它在 5.10.0 中没有改变。 拉里·沃尔注意到并做了相当于天哪你错了！！！ 新的 Perl 6 版本被认为明显更好，因此 5.10.1 修复了它。

Answer 2

伪哈希是我最近想到的一个例子头脑。一般来说，perldelta 文件概述了特定版本中不兼容的更改。这些变化几乎总是晦涩难懂（如伪哈希）或很小。

Answer 3

是的。有很多，尽管它们通常都很小。有时这是由于弃用周期最终以删除而告终。有时这是由于新的（和实验性的）功能的语义改变所致。有时，它会修复无法正常工作的问题。 Perl 开发人员竭尽全力尽可能地保持版本之间的向后兼容性。我不记得曾经有过因升级到新版本的 Perl 而损坏的脚本。

内部哈希顺序已更改多次。虽然这不是您应该依赖的东西，但如果您无意中这样做，它可能会导致问题。

主要 (5.x) 版本之间的二进制不兼容很常见，但这通常仅意味着任何 XS 扩展都需要重新编译。

完整的列表太长，无法在此列出。您可以通过检查每个版本的历史的“不兼容的更改”部分来获取它。

Answer 4

OTOH，有一些可追溯到 Perl 1 的狂野功能仍然有效。例如，这打印了什么？

%foo = (foo => 23);
print values foo

没错，23。为什么？因为“关联数组”在 Perl 1 中不是一等对象。$foo{bar} 有效，但没有 %foo。我真的不知道为什么，甚至 Perl 1 手册页也承认这是疣。因此，为了与 Perl 1 兼容，您可以在不使用 % 的情况下访问全局哈希，也许您的键盘坏了或者 Apple 决定没有人使用 % 符号。

chdir 有一些奇怪的地方。不带参数的 chdir() 会将您带到主目录，复制 shell cd 行为。不幸的是，chdir undef 和 chdir "" 也会导致很难捕获 chdir 周围的错误。幸运的是，这种行为已被弃用。我必须确保它在 5.14 中消失。

$[ 仍然存在并且未弃用，但“非常不鼓励”。它改变了数组的第一个索引，所以如果你是像我一样的人并且从 1 开始计数，你可以这样做：

$[ = 1;
@foo = qw(foo bar baz);
print $foo[2];   # prints bar

Perl 5 将其更改为文件范围，否则它会拖累性能，并且是一个很好的来源疯狂的。

Answer 5

我在 Perl4 和 Perl5 中遇到了一些奇怪的错误，以不同的顺序评估作业的左侧和右侧，引用 Perl 陷阱给粗心的人：

任何赋值运算符的左轴与右轴。 LHS 在 perl4 中首先评估，在 perl5 中其次评估；这会影响子表达式中副作用之间的关系。

@arr = ( '左', '右' );
$a{shift @arr} = 移位@arr;
打印连接（''，键％a）;
# perl4 打印：左
# perl5 打印：正确

对于一些新的和可能不兼容的内容，请参阅常见问题解答< /a> Perl4 和 Perl5 之间。