如何刪除換行符和空格，並用Perl中的空白字符替換它們？

Question

我怎麼能寫Perl的正則表達式模式，將工作，這樣的：

**If there is a new line**, after it, it will remove that new line character and all the whitespace characters after until it sees any character except for a white space character and will put just one whitespace character instead of them?

Answer 1

substitution operator

use warnings; 
use strict; 

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

__END__ 

foo bar goo ber 

Answer 2

我不知道如果我明白你的問題很好。嘗試：s{ \n\s+ }{ }gx