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

Question

例如

*aabc aacb  aavg +gf avb avb abf

应该

*aabc aacb  aavg 
+gf avb avb abf

谢谢

Answer 1

使用替代：

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

+必须反斜线以失去其特殊含义， \\n是换行符。

Answer 2

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

Answer 3

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