regex - Perl:正则表达式替换

Question

我想编写一个正则表达式来替换删除字符串中的空格，如下所示:

字符串:用户1:组用户2:组2 用户3:组3 到

user1:group user2:group2 user3:group3

到目前为止我尝试的是:

$argument =~ s/\s+\:/\:/g;

Answer 1

你快到了:

$argument =~ s/\s*:\s*/:/g;

没有必要转义:，你想搜索冒号前后的空格。我没有使用 \s+ 来搜索一个或多个，而是使用 \s* 来搜索零个或多个。这样，如果前面没有空格但后面有一些空格，您将匹配，反之亦然。