배치 또는 I는 다음과 같습니다 텍스트 파일 고쳐 스크립트 쓰고 싶은 txt 파일

Question

을 재편 펄이에

word1 
word2 
word3 
word4 

word5 
word6 
word7 
word8 

word9 
word10 
word11 
word12 
... 

:

word1 word2 word3 word4 
word5 word6 word7 word8 
word9 word10 word11 word12 
... 

은 누구나 쉽게 알고 있나요를 그렇게하는 방법? (TLP의 제안을 사용하여)

Answer 1

perl -l -00 -aF/\s*\n\s*/ -ne 'print "@F"' /source/file > /dest/file 

설명

• -l : 자동 씹는 기록과는 say 같은 print 행동을합니다.
• -00 :는 "단락 모드"로 펄을두고 있으며 연속 찾습니다 "\ n \ n"
• -a : 필드 배열에 자동 분할 기록 @F
• -F : 다음 패턴을 사용하여 자동 분할을 사용하여 레코드를 분할하십시오.
• -ne :는 ("\ n을 \ 없음"으로 구분) 각 레코드에 대해 다음을 실행
당신의 그룹 "단락"그래서 등을 읽을 것을 표시

Answer 2

말했을 때 만 인쇄; 공백에 단어를 나눕니다. 그 결과를 하나의 공간 (공백)를 사용하여 다시 가입 인쇄 :

#!/usr/bin/env perl 
use strict; 
use warnings; 
local $/ = ''; 
my @words; 
while (<DATA>) { 
    @words = split; 
    print join q(), @words, "\n"; 
    @words =(); 
} 
__DATA__ 
word1 
word2 
word3 
word4 

word5 
word6 
word7 
word8 

word9 
word10 
word11 
word12 

Answer 3

perl -i.bak -pwe 's/\S\s*\K\n$/ /' input.txt 

• -i.bak이 input.txt.bak
• -p에 백업을 저장하는 스크립트 주위에 잠시 (<>) 루프를두고
• 정규 표현식은 공백 문자가 아닌 공백 문자 으로 끝나는 라인을 찾고 공백 문자 다음에 개행 문자를 추가하고 개행 문자를 공백으로 대체합니다. \K 탈출은 "이것보다 먼저 모든 것을 보관하십시오"를 의미합니다.

또 다른 옵션은 다음 BEGIN 블록에 단락 모드를 사용하고, 각각 -l