Regex 在Perl中，如何删除换行符和它们后面的空格，并用空格字符替换它们？

如何使用Perl编写一个工作方式如下的正则表达式模式：

---

**如果有一个新行**，在它之后，它将删除该新行字符和后面的所有空白字符，直到它看到除空白字符以外的任何字符，并将只放置一个空白字符来代替它们？

我不确定我是否理解您的问题。试试：s{\n\s+}{}gx

我不确定我是否理解你的问题。尝试：s{\n\s+}{}gx

---

\s*表示即使换行后没有空格，它也将匹配。如果您只想将换行符与空格匹配，请使用\s+No，您肯定需要perl-0777-pe的//\R\h+//g'。\s*意味着即使换行符后面没有空格，它也会匹配。如果您只想将换行符与空格匹配，请使用\s+No，您肯定需要perl-0777-pe的//\R\h+//g。

use warnings;
use strict;

my $s = "foo\n    bar goo\nber";
$s =~ s/\n\s*/ /g;
print "$s\n";

__END__

foo bar goo ber