regex - 如何在文本中出现的第一个 + 之后在 perl 中插入换行符

Question

例如

*aabc aacb  aavg +gf avb avb abf

应该

*aabc aacb  aavg 
+gf avb avb abf

谢谢

score 7 · Accepted Answer

使用替换：

my $text =  '*aabc aacb  aavg +gf avb avb abf';
$text    =~ s/\+/\n+/;
print $text;

+必须加反斜杠才能失去其特殊含义，\n是换行符。

score 0 · Accepted Answer

0

my $str = "*aabc aacb  aavg +gf avb avb abf";
$str =~ s/\+/\n\+/;
print $str;

于 2013-01-31T12:48:56.050 回答

score 0 · Accepted Answer

0

> echo "abcd +gkj +bcd" | perl -pe 's/\+/\n\+/'
abcd 
+gkj +bcd

于 2013-01-31T13:05:33.447 回答

3 回答 3