Imprima linhas numeradas ímpares, imprima linhas numeradas pares

Quero imprimir as linhas de números ímpares e pares de arquivos.

Eu encontrei este script de shell que faz uso de eco.

#!/bin/bash
# Write a shell script that, given a file name as the argument will write
# the even numbered line to a file with name evenfile and odd numbered lines
# in a text file called oddfile.
# -------------------------------------------------------------------------
# Copyright (c) 2001 nixCraft project <http://cyberciti.biz/fb/>
# This script is licensed under GNU GPL version 2.0 or above
# -------------------------------------------------------------------------
# This script is part of nixCraft shell script collection (NSSC)
# Visit http://bash.cyberciti.biz/ for more information.
# -------------------------------------------------------------------------

file=$1
counter=0

eout="evenfile.$$" # even file name
oout="oddfile.$$" # odd file name

if [ $# -eq 0 ]
then
    echo "$(basename $0) file"
    exit 1
fi

if [ ! -f $file ]
then
    echo "$file not a file"
    exit 2
fi

while read line
do
    # find out odd or even line number
    isEvenNo=$( expr $counter % 2 )

    if [ $isEvenNo -ne 0 ]
    then
        # even match
        echo $line >> $eout
    else
        # odd match
        echo $line >> $oout
    fi
    # increase counter by 1
    (( counter ++ ))
done < $file
echo "Even file - $eout"
echo "Odd file - $oout"

Mas não há uma maneira de fazer isso em uma linha?

Sim, use awk, eu li.

Linhas numeradas pares:

awk 'NR % 2' filename

linhas ímpares:

awk 'NR % 2 == 1' filename

Mas isso não funciona para mim. Ambos produzem a mesma saída, de acordo com o diff. Quando comparados com o arquivo original, os dois têm metade do comprimento e as linhas com números ímpares. Estou fazendo algo errado?

Como você perguntou "em uma linha":

awk '{print>sprintf("%sfile.%d",NR%2?"odd":"even",PROCINFO["pid"])}' filename

Observe que a maior parte do código é devido à sua escolha de nome de arquivo de saída sofisticado. Caso contrário, o código a seguir seria suficiente para colocar linhas ímpares na “linha 1” e linhas pares na “linha 0”:

awk '{print>"line-"NR%2}' filename

Eu prefiro ser compatível com POSIX, sempre que possível, então pensei em publicar este método alternativo. Costumo usá-los para alterar o texto antes dos xargspipelines.

Imprimir linhas pares numeradas,

sed -n 'n;p'

Imprimir linhas numeradas ímpares,

sed -n 'p;n'

Embora eu costumo usar awk, é um exagero para esse tipo de tarefa.

Isso é fácil:

 sed -n 2~2p filename

imprimirá linhas pares do nome do arquivo

sed -n 1~2p filename

imprimirá linhas com números ímpares.

Para números pares, o código deve ser

awk 'NR%2==0' filename

& para números ímpares

awk 'NR%2==1' filename

Você pode fazer isso com uma única sedchamada, sem necessidade de ler o arquivo duas vezes:

sed '$!n
w even
d' infile > odd

ou, se preferir em uma linha:

sed -e '$!n' -e 'w even' -e d infile > odd

Observe que eles não fornecerão o resultado esperado se um arquivo contiver apenas uma linha (a linha será wcopiada em evenvez de odda primeira nnão ser executada). Para evitar isso, adicione uma condição:

sed -e '$!n' -e '1!{w even' -e 'd}' infile > odd

Como funciona ? Bem, ele usa três sedcomandos:
n- se não estiver na última linha, imprima o espaço do padrão para stdout(que é redirecionado para o arquivo odd), substitua-o pela próxima linha (agora está processando uma linha par) e continue executando os comandos restantes
w- acrescente o espaço do padrão a ser arquivado even
d- exclua o espaço do padrão atual e reinicie o ciclo - o efeito colateral disso é que sednunca imprimirá automaticamente o espaço do padrão, pois nunca alcançará o final do script

Em outras palavras, né executado apenas em linhas ímpares e we dsão executados apenas em linhas pares. sednunca chega à impressão automática, a menos que, como eu disse, a entrada consista em uma única linha.

Tente o seguinte:

awk '{if(NR%2){print $0 > "odd.file"}else{print $0 > "even.file"}}' filename

Eu iria perlporque gosto de perl:

perl -pe 'BEGIN{open($e,">even_lines");open($o,">odd_lines")} $. % 2 ?select $o:select $e;'

Usa o fato de que -pimplicitamente imprime, para replicar como sedfunciona - e usamos selectpara escolher qual identificador de arquivo no qual ele grava.