Perl 忽略正则表达式替换的替换侧的空格

Question

假设我有 $str = "onetwo"。

我想编写一个忽略空格的 reg ex 替换命令（这使其更具可读性）：

$str =~ s/
          one
          two
         /
          three
          four
         /x

这会生成 "\n Three\nfour\n" ，而不是 "thirdfour" > （其中 \n 是换行符）。基本上， /x 选项会忽略替换匹配侧的空格，但不会忽略替换侧的空格。如何也忽略替换侧的空格？

Answer 1

s{...}{...} 基本上是 s{...}{qq{...}}e。如果您不需要 qq{...}，则需要将其替换为其他内容。

s/
   one
   two
/
   'three' .
   'four'
/ex

甚至：

s/
   one
   two
/
   clean('
      three
      four
   ')
/ex

clean 的可能实现：

sub clean {
    my ($s) = @_;
    $s =~ s/^[ \t]+//mg;
    $s =~ s/^\s+//;
    $s =~ s/\s+\z//;
    return $s;
}