2013-01-31 14 views
0

例如如何出現在文本

第一+後插入在Perl換行符
*aabc aacb aavg +gf avb avb abf 

應該

*aabc aacb aavg 
+gf avb avb abf 

感謝

+2

不是第一次'+'出現 '前' 這個嗎? – dgw

+0

文本中的「」是指「文件中每一行」還是「文件中」? – TLP

回答

7

使用替代:

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

+ mu st be backslashed to lose its special meaning,\n是換行符。

+1

或者,使用一個前瞻斷言:'{(?= \ +)} {\ n};' – Zaid

0
my $str = "*aabc aacb aavg +gf avb avb abf"; 
$str =~ s/\+/\n\+/; 
print $str; 
0
> echo "abcd +gkj +bcd" | perl -pe 's/\+/\n\+/' 
abcd 
+gkj +bcd