추가] 라인

Question

내 입력 라인 (Perl로 구현)

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

내 문제는 : 라인이 어떻게 생겼는지 확인하고,이로 끝나는 경우 ":"여기에 다음 줄을 추가합니다.

예를 들어, "Books :"가 포함 된 줄을 "전기"가 들어있는 줄에 조인합니다. 그러나 이것은 한 가지 예일뿐입니다. 줄의 내용은 여러면에서 다를 수 있습니다.

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

사용자의 입력 작업을 할 수있는 작은 프로그램 :

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

Answer 4

:

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

구조로는 -p 옵션을 제공하는 것, 당신이 당신의 셸에서 한 줄에 그것을 할 수 정확하게 비슷한 것 $text =~ s/:\s*\n/: /msg;