添加字符litterals perl（非常简单）

如果有人想在这里快速表示你去:)。添加字符litterals perl（非常简单）

如何添加字符litterals像我可以在C.做例如

print 'A' + 1

上述应打印 'B'，因为ASCII 'A' + 1给出了ASCII 'B'

2012-08-07 user974896

chr(ord('A') + 1) 。 Perl没有字符类型，它有一个字符串类型。而一个字符串的行为不像ASCII值那样。您想要ord将其转换为数字代码点并将其转换回chr。

2012-08-07 15:02:54 hobbs

作为一种特殊情况，您可以'++'字符串。 – 2012-08-07 15:04:45

@ OlegV.Volkov，'++'的魔力不像在C的'char'类型上进行算术运算。在C和'my $ foo ='Z'中做'char foo ='Z'+ 1'; $ foo ++;'在Perl中会有非常不同的结果。 – 2012-08-07 15:12:21

@ Ven'Tatsu，当然。由于它确实是“特殊的”，因此它的逻辑更复杂，在使用它之前阅读文档更好。顺便说一句，也没有相应的'--'。 – 2012-08-07 15:14:39

如果您将字符串存储在变量中，那么you can increment them。

$ perl -E'$a = "A"; say ++$a' 
B 

$ perl -E'$a = "abacaa"; say ++$a' 
abacab 

$ perl -E'$a = "Z"; say ++$a' 
AA

2012-08-07 15:06:53

回答