如何在perl中单独替换顺序空格答案

【问题标题】：How to substitute sequential spaces individually in perl如何在perl中单独替换顺序空格
【发布时间】：2014-03-04 11:31:26
【问题描述】：

我想用“\ ”替换“a b”中的每个空格，并且预期的输出是“a\ \ \ b”。
我尝试了以下代码，但输出不满意。

#!usr/bin/perl -w
use CGI;
my $q = CGI -> new;
print $q -> header();
$input = "a   b";
(my $output = $input) =~ s/\ /\\ /;

输出是“a\ b”，但不是“a\ \ \ b”。
我怎样才能做到正确？

【问题讨论】：

【解决方案1】：

嗯

$input = "a   b";

$input =~ s/\s/\\/g;

测试有效，我的测试代码

#!/usr/bin/perl

$abc = "a          b";

 $abc =~ s/\s/\\/g;

print $abc, "\n";

Cerberus:~ alexmac$ ./testaaa.pl
a\\\\\\\\\\b

这应该很适合您。我们的想法是我们正在匹配 \s，它会一遍又一遍地匹配，直到您匹配任何 \s 类型的字符，即空白字符集 regular expressions

【讨论】：

【解决方案2】：

首先，正如前面的回答者已经提到的那样，您只是在替换正则表达式中缺少 /g（“全局”）修饰符。

alex@yuzu:~$ perl -E '$str = "a   b"; $str =~ s/ /\\ /g; say $str;'
a\ \ \ b

但是更进一步，我想知道您是否希望转义除空格以外的字符。在这种情况下，您可能需要考虑使用 quotemeta() 内置函数。

alex@yuzu:~$ perl -E '$str = q{a   b   ()+?$@%}; say quotemeta $str;'
a\ \ \ b\ \ \ \(\)\+\?\$\@\%

欲了解更多信息，请参阅perldoc quotemeta。

【讨论】：