添加字符 perl(非常简单)

Question

如果有人想在这里快速重复，你可以:)。

如何像在 C 中那样添加字符字。 例如

 print 'A' + 1

以上应打印"B"，因为 ASCII "A" + 1 给出 ASCII "B"

Answer 1

chr(ord('A') + 1) .Perl 没有字符类型，它有一个字符串类型。字符串在数字上不表现为 ASCII 值。您希望ord将其转换为数字代码点，chr将其转换回来。

Answer 2

如果将字符串存储在变量中，则可以递增它们。

$ perl -E'$a = "A"; say ++$a'
B
$ perl -E'$a = "abacaa"; say ++$a'
abacab
$ perl -E'$a = "Z"; say ++$a'
AA