Como excluir a última coluna de um arquivo no Linux

Desejo excluir a última coluna de um arquivo txt, enquanto não sei qual é o número da coluna. Como eu pude fazer isso?

Exemplo:

Entrada:

1223 1234 1323 ... 2222 123
1233 1234 1233 ... 3444 125
0000 5553 3455 ... 2334 222

E eu quero que minha saída seja:

1223 1234 1323 ... 2222
1233 1234 1233 ... 3444
0000 5553 3455 ... 2334

Com awk:

awk 'NF{NF-=1};1' <in >out

ou:

awk 'NF{NF--};1' <in >out

ou:

awk 'NF{--NF};1' <in >out

Embora isso pareça vodu, ele funciona. Existem três partes para cada um desses comandos do awk.

O primeiro é NF, que é uma pré-condição para a segunda parte. NFé uma variável que contém o número de campos em uma linha. No AWK, as coisas são verdadeiras se não forem 0 ou string vazia "". Portanto, a segunda parte (onde NFé decrementada) só acontece se NFnão for 0.

A segunda parte ( NF-=1 NF--ou --NF) está apenas subtraindo uma da NFvariável. Isso impede que o último campo seja impresso, porque quando você altera um campo (removendo o último campo neste caso), awkrecria $0, concatena todos os campos separados por espaço por padrão. $0não continha mais o último campo.

A parte final é 1. Não é mágico, é apenas usado como uma expressão que significa true. Se uma awkexpressão for avaliada como verdadeira sem nenhuma ação associada, a awkação padrão será print $0.

Usando grepcom PCRE:

$ grep -Po '.*(?=\s+[^\s]+$)' file.txt 
1223 1234 1323 ... 2222
1233 1234 1233 ... 3444
0000 5553 3455 ... 2334

Usando o GNU sed:

$ sed -r 's/(.*)\s+[^\s]+$/\1/' file.txt 
1223 1234 1323 ... 2222
1233 1234 1233 ... 3444
0000 5553 3455 ... 2334

Usando Perl:

perl -lane '$,=" ";pop(@F);print(@F)' in

Usando rev+ cut:

rev in | cut -d ' ' -f 2- | rev

Usando o GNU sed:

sed -r 's/\s+\S+$//' input.txt

De um modo mais geral, este funciona com o BSD sed no OSX, assim como o GNU sed:

sed 's/[[:space:]]\{1,\}[^[:space:]]\{1,\}$//' input.txt

Se o delimitador é sempre um único caractere (para que dois ou mais delimitadores consecutivos designem campos vazios), você pode headapenas a primeira linha do seu arquivo de entrada, contar os delimitadores ( ndelimitadores significa que o número de campos é n+1) e usá-lo cutpara imprimir no 1campo st até o nquinto campo (do penúltimo ao último), por exemplo, com entrada delimitada por tabulação:

n=$(head -n 1 infile | tr -dc \\t | tr \\t \\n | wc -l)
cut -f1-$n infile > outfile

ou por exemplo, com um arquivo csv :

n=$(head -n 1 infile | tr -dc , | tr , \\n | wc -l)
cut -d, -f1-$n infile > outfile

Vou executar alguns benchmarks mais tarde, se tiver tempo, mas com uma grande quantidade de informações, acho que essa solução deve ser mais rápida do que outras soluções que usam regex, pois essa processa o mínimo na primeira linha para obter o não. de campos e, em seguida, usa o cutque é otimizado para este trabalho.

Portably você pode usar um destes:

sed 's/[[:space:]]*[^[:space:]]*$//' file

awk '{sub(/[[:space:]]*[^[:space:]]*$/,"")}1' file

Usando o vim:

Abrir arquivo no vim

vim <filename> 

Vá para a primeira linha, caso o cursor seja colocado em qualquer outro lugar.

gg

Crie uma macro denominada "q" qq, que vá para o final da linha atual $, depois para o último espaço F(capital F, seguido de literal ESPAÇO) e exclua da posição atual até o final da linha, Ddesça para a próxima linha je pare a gravação de macro com q.

qq$F Djq

Agora podemos repetir nossa macro com @qpara cada linha.
Também podemos pressionar @@para repetir a última macro ou ainda mais fácil:

99@q

repetir a macro 99 vezes.
Nota: O número não deve corresponder exatamente às linhas.

Para pessoas que têm um problema semelhante, mas com separadores de campos diferentes, esse awkmétodo preservará o separador de campos corretamente:

$ cat file 
foo.bar.baz
baz.bar.foo
$ awk -F'.' 'sub(FS $NF,x)' file
foo.bar
baz.bar