파일의 줄 순서 변경

$ seq 9 | sed -n 'p;n;h;n;G;p'
1
3
2
4
6
5
7
9
8

즉, p현재 줄을 인쇄하고, n추가 줄을 얻고, h오래된 줄을 얻고, n추가 줄을 얻고, G나머지 줄을 가져오고(패턴 공간에 추가) p, 세 번째와 두 번째 줄을 교체하여 패턴 공간의 2줄을 인쇄합니다.

awk정수 수학을 사용하세요 :

awk 'NR%3 == 1 { print } NR%3 == 2 { delay=$0 } NR%3 == 0 { print; print delay; delay=""} END { if(length(delay) != 0 ) { print delay } }' /path/to/input

모듈로 연산자는 정수 나누기를 수행하고 나머지를 반환하므로 각 행에 대해 시퀀스 1, 2, 0, 1, 2, 0 [...]을 반환합니다. 이를 알고 있으면 나중에 사용할 수 있도록 모듈로 2 라인에 입력을 저장하기만 하면 됩니다. 즉, 입력이 0일 때 입력을 인쇄합니다.

perl짧은 스크립트를 사용하세요 .

user@pc:~$ cat input.txt 
gi_1234
My cat is blue.
I have a cat.
gi_5678
My dog is orange.
I also have a dog.

user@pc:~$ perl -ne '$l2=<>; $l3=<>; print $_,$l3,$l2;' input.txt 
gi_1234
I have a cat.
My cat is blue.
gi_5678
I also have a dog.
My dog is orange.

스크립트는 전체 파일을 처리하고 ( 에 저장된 $_) 각 줄에 대해 다음 두 줄( $l2sum $l3)을 가져와서 요청된 순서(line1, line3, line2)로 인쇄합니다.

진주

perl -ne 'print if $.%3==1;$var=$_ if $.%3==2;print $_ . $var if $.%3==0' input.txt

여기서 아이디어는 %줄 번호 $.변수와 함께 모듈로 연산자를 사용하여 어느 것이 첫 번째인지, 두 번째인지, 세 번째인지 알아내는 것입니다. 세 번째 행마다 나머지는 0이고, 첫 번째와 두 번째 행마다 해당 숫자가 있습니다.

시험:

$ cat input.txt                                                                                                          
gi_1234
My cat is blue.
I have a cat.
gi_5678
My dog is orange.
I also have a dog.

$ perl -ne 'print if $.%3==1;$var=$_ if $.%3==2;print $_ . $var if $.%3==0' input.txt                                    
gi_1234
I have a cat.
My cat is blue.
gi_5678
I also have a dog.
My dog is orange.

작은 개선

두 번째 줄을 변수에 저장하는 방법에 결함이 있습니다. 마지막 줄이 "두 번째" 줄이면 어떻게 되나요(즉, 줄 번호의 나머지 부분이 2인 경우)? My dog is orange내 원본 코드와 DopeGhoti의 답변은 마지막 줄을 생략하면 인쇄되지 않습니다. 두 경우 모두 해결 방법은 END{}코드 블록을 사용하고 인쇄 후 임시 변수를 설정 해제하는 것입니다 . 다시 말해서:

$ awk 'NR%3 == 1 { print } NR%3 == 2 { delay=$0 } NR%3 == 0 { print; print delay;delay=""}END{print delay}' input.txt

그리고

$ perl -ne '$s=$_ if $.%3==2;print $_ . $s and $s="" if $.%3==0 or $.%3==1;END{print $s}' input.txt 

이렇게 하면 코드는 3으로 나눌 수 있는 줄뿐만 아니라 파일의 모든 줄에 적용됩니다.

댓글에 언급된 문제에 대한 추가 수정 사항

awk의 경우 파일의 마지막 줄이 $이면 1이 출력됩니다. % 3, 이전 코드에는 무조건 인쇄로 인해 빈 줄 바꿈을 출력하는 문제가 있습니다 . 주석에 언급된 함수는 항상 작동 중인 모든 변수에 줄 바꿈을 추가하기 END{print delay}때문입니다 . 버전 print인 경우에는 perlwith -neflags print함수가 개행 문자를 추가하지 않기 때문에 이 문제가 발생하지 않습니다.

그럼에도 불구하고 awk의 솔루션은 주석에서 Dope Ghoti가 언급한 것처럼 임시 변수의 길이를 확인하는 조건을 설정하는 것입니다. 동일한 고정 Perl 버전은 다음과 같습니다.

$ perl -ne '$s=$_ if $.%3==2;print $_ . $s and $s="" if $.%3==0 or $.%3==1;END{print $s if length $s}' input.txt