追加線用Perl

Question

我輸入線：

Movies: Action 
Adventure 
Biography 
Comedy 
Books: 
Biography 
Romance 
Sci-Fi 
War 

我的問題（在Perl中實現）：檢查內容的行類似，如果結尾「：」下一行追加到它。

在我的示例中，它將包含「Books：」的行連接到包含「Biography」的行，但這只是一個示例 - 行的內容可能在很多方面有所不同。

Movies: Action 
Adventure 
Biography 
Comedy 
Books: Biography 
Romance 
Sci-Fi 
War 

Answer 1

可以使用後視聲明：

s/(?<=:)\s*\n/ /gs; 

Answer 2

你可以這樣做：

perl -pe 's/\r?\n$//if(/:\s*$/)' file 

或

perl -pe 'chomp if(/:\s*$/)' file 

如果你是好與:後沒有空格。

Answer 3

這裏一個小程序在您輸入的工作：

while (<>) { 
    s/\s+$//if /:$/; 
    print; 
} 

由於結構是完全-p選項提供什麼，你可以從你的shell做在一個行：

perl -pe 's/\s*//if /:$/' text_file 

Answer 4

類似$text =~ s/:\s*\n/: /msg;