Strawberry Perl 无法识别 OSNAME 的特殊变量

Question

我最近在运行 Windows 7 的 PC 上将 Strawberry Perl 从版本 5.14.1.1-32bit 升级到 5.24.0-64bit。我有一个在 Windows 和 Linux 下运行的 perl 脚本，当我使用旧版本时命令

use if $^O eq 'MSWin32' , 'Win32::Console::ANSI';

工作，但现在我已经升级我收到错误消息

Unrecognized character \x0F; marked by <-- HERE after use if $<-- HERE near column9 at p:\bin\abc.pl line 31.

有谁知道发生了什么变化，以及如何让新版本的 Strawberry Perl 接受命令？提前感谢所有回复的人。

Answer 1

您的代码包含 Shift In 控制字符 (0x0F)，也称为“Control-O”，而不是字符 ^ 和 O。这适用于旧版本的 Perl，但 deprecated in version 5.20.0:

变量名中的文字控制字符

这种弃用会影响诸如 $\cT 之类的东西，其中 \cT 是源代码中的文字控件（例如 NAK 或 NEGATIVE ACKNOWLEDGE 字符）。令人惊讶的是，最初这似乎是作为访问 $^T 等变量的规范方式而添加的插入符号形式只是作为替代。

不推荐使用文字控件表单的主要原因有两个。它有一些可能无法修复的错误，例如 $\cI 不能作为 $^I 的别名，并且它们的使用不能移植到非 ASCII 平台：虽然 $^T 可以在任何地方工作，但 \cT 是 EBCDIC 中的空白。 [perl #119123]

As of 5.24.0，使用包含非图形 ASCII 控制字符的变量名会导致语法错误。