perl - 如何在 Perl 中用一个空格替换多个空格？

Question

为什么这不起作用？

$data = "What    is the STATUS of your mind right now?";

$data =~ tr/ +/ /;

print $data;

Answer 1

使用 $data =~ s/ +/ /;反而。

解释:
tr是 translation运算符(operator)。需要注意的重要一点是，正则表达式修饰符不适用于翻译语句(除了 - 仍然表示范围)。所以当你使用tr/ +/ /你说的是“获取字符空间和 + 的每个实例并将它们转换为一个空格”。换句话说，tr想到空间和+作为单个字符，不是 一个正则表达式。

示范:

$data = "What    is the STA++TUS of your mind right now?";

$data =~ tr/ +/ /;

print $data; #Prints "What    is the STA  TUS of your mind right now?"

使用 s通过说“匹配任意数量的连续空格(至少一个实例)并用一个空格替换它们”，可以满足您的要求。您可能还想使用类似的东西 s/ +/ /g;如果您希望替换的位置不止一个( g 意味着全局应用)。