Perl 字符串自动增量无法像以前一样工作

Question

我有一些代码，用于转换平面文件中的一些数据元素。我将旧值：新值保存到哈希值中，该哈希值在处理结束时写入文件中。在后续执行时，我重新加载到哈希中，以便可以在其他数据文件上重用之前转换的值。我还保存了最后一个转换值，因此如果遇到未转换的值，我可以为其分配一个新的转换值并将其添加到哈希中。

我之前（二月份）曾在六个文件上使用过这段代码，没有出现任何问题。我有一个设置为 ZCKL0 （最后一个字符为零）的变量，该变量是从保存上次使用的值的文件中检索的。我应用增量运算符 ... $数据{$olddata} = ++$dataseed; ... $dataseed 中的结果值为 1，而不是 ZCKL1。最初的起始种子值为 ZAAA0。

我在这里缺少什么？

Answer 1

您是否在代码的数字上下文中使用 $dataseed 变量？

来自 perlop：

如果你增加一个变量
数字，或者曾经使用过的
数字上下文，你会得到一个正常的
增量。然而，如果变量
仅在字符串上下文中使用
因为它被设置了，并且有一个值
不是空字符串并且匹配
模式 /^[a-zA-Z][0-9]\z/ ，
增量作为字符串完成，
保留其内的每个字符
范围。

Answer 2

如前所述，字符串上的 ++ 很“神奇”，因为它根据字符串的内容和使用该字符串的上下文进行不同的操作。

为了说明问题并假设：

my $s='ZCL0'; 

then

print ++$s;

将打印：

ZCL1

while

$s+=0; print ++$s;

打印

1

注意：在其他流行的编程语言中，++ 仅对于数字值是合法的。

不鼓励使用 Perl 的非直观、“神奇”功能，因为它们会导致混乱且可能无法支持的代码。

Answer 3

您可以几乎同样简洁地编写此代码，而无需依赖神奇的 ++ 行为：

s/(\d+)$/ $1 + 1 /e

e 标志使其成为表达式替换。