Estou tentando alterar a ordem das linhas em um padrão específico. Trabalhando com um arquivo com muitas linhas (por exemplo, 99 linhas). Para cada três linhas, gostaria que a segunda linha fosse a terceira linha e a terceira a segunda.
EXEMPLO.
1- Entrada:
gi_1234
My cat is blue.
I have a cat.
gi_5678
My dog is orange.
I also have a dog.
...
2- Saída:
gi_1234
I have a cat.
My cat is blue.
gi_5678
I also have a dog.
My dog is orange.
...
Respostas:
Usando awke números inteiros:
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
O operador de módulo executa a divisão inteira e retorna o restante, portanto, para cada linha, retornará a sequência 1, 2, 0, 1, 2, 0 [...]. Sabendo disso, apenas salvamos a entrada nas linhas em que o módulo é 2 para mais tarde - ou seja, logo após imprimir a entrada quando é zero.
NR%3 == 0 { print; print delay; delay=""} END { if(length(delay) != 0 ) { print delay }.
$ seq 9 | sed -n 'p;n;h;n;G;p'
1
3
2
4
6
5
7
9
8
Ou seja, plimpe a linha atual, obtenha a next, hantiga, obtenha a next Ge a linha retida (anexa ao espaço do padrão) e plimpe esse espaço de padrão de 2 linhas com a terceira e a segunda linhas trocadas.
Outra abordagem inábil :
awk '{print $0; if ((getline L2)>0 && (getline L3)>0){ print L3 ORS L2 }}' file
A saída:
gi_1234
I have a cat.
My cat is blue.
gi_5678
I also have a dog.
My dog is orange.
(getline L2)>0 && (getline L3)>0- extrai os próximos 2 registros, se existirem
cada segundo e terceiro registros são atribuídos L2e L3variáveis respectivamente
line2etc.
Usando perle um script curto:
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.
O script processa o arquivo inteiro. Para cada linha (armazenada em $_), ela obtém as próximas duas linhas ( $l2e $l3) e as imprime na ordem solicitada: linha1, linha3, linha2.
Uma maneira pode ser a seguinte:
sed -e '
/\n/s/\(.*\)\(\n\)\(.*\)/\3\2\1/;//b
$!N;$q;N; # load up the pattern space with 3 lines provided eof not reached
P;D; # first just print the first line then interchange the two and print them
' yourfile
Alternativamente,
perl -ne 'print $_, reverse scalar <>, scalar <>' yourfile
gi_1234
I have a cat.
My cat is blue.
gi_5678
I also have a dog.
My dog is orange.
Por que não fazer um loop while? Em forma expandida:
( while read a
do
read b
read c
echo "$a"
echo "$c"
echo "$b"
done
) < input.txt
No "formato de linha única":
( while read a ; do read b ; read c ; echo "$a" ; echo "$c" ; echo "$b" ; done) < input.txt
Saídas:
gi_1234
I have a cat.
My cat is blue.
gi_5678
I also have a dog.
My dog is orange.
perl -ne 'print if $.%3==1;$var=$_ if $.%3==2;print $_ . $var if $.%3==0' input.txt
A idéia aqui é que usamos o operador módulo %com $.variável de número de linha , para descobrir qual é o primeiro, qual é o segundo e qual é a terceira linha. Para cada terceira linha, o restante é 0, enquanto para cada primeira e segunda linhas, ele terá números correspondentes.
Teste:
$ 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.
A abordagem para armazenar a segunda linha em uma variável tem uma falha. E se a última linha for a "segunda", ou seja, para o número restante da linha for 2? O código original da minha resposta e da DopeGhoti não será impresso My dog is orangese deixarmos de fora a última linha. A correção para isso em ambos os casos é usar o END{}bloco de código, desabilitando a variável temporária após a impressão. Em outras palavras:
$ awk 'NR%3 == 1 { print } NR%3 == 2 { delay=$0 } NR%3 == 0 { print; print delay;delay=""}END{print delay}' input.txt
e
$ perl -ne '$s=$_ if $.%3==2;print $_ . $s and $s="" if $.%3==0 or $.%3==1;END{print $s}' input.txt
Dessa forma, o código funcionará para um número arbitrário de linhas em um arquivo, não apenas para as divisíveis por 3.
No caso do awk, se a última linha do arquivo produzir uma saída de 1 por $. % 3, o código anterior tem o problema de gerar nova linha em branco devido à impressão incondicional de END{print delay}, uma vez que a printfunção mencionada nos comentários sempre anexa nova linha a qualquer variável em que esteja operando. No caso da perlversão, esse problema não ocorre, pois a função with -neflags printnão anexa a nova linha.
No entanto, a correção no caso do awk é tornar condicional, como mencionado por Dope Ghoti nos comentários, é verificar o tamanho da variável temporária. A versão perl da mesma correção seria:
$ perl -ne '$s=$_ if $.%3==2;print $_ . $s and $s="" if $.%3==0 or $.%3==1;END{print $s if length $s}' input.txt
awk) NR%3 == 0 { print; print delay; delay=""} END { if(length(delay) != 0 ) { print delay }.
-nesinalizadores não gera uma nova linha. Na verdade, é impresso, mas é uma sequência nula, sem nova linha final. No entanto, adicionei a menção do problema e a mesma correção na minha resposta. Obrigado !
Não é adequado para arquivos longos, mas ainda é útil se você estivesse apenas editando um arquivo e desejasse, por exemplo, reorganizar algumas estrofes do yaml.
Primeiro grave uma macro:
gg qq j ddp j q
E repita o número desejado de vezes:
@q @q @q ...
Ou apenas por exemplo
3@q
Explicação:
@q @q @q, é possível fazer desta maneira 3@q- repita três vezes. 100@q- repita a macro 100 vezes.