AskOverflow.Dev

AskOverflow.Dev Logo AskOverflow.Dev Logo

AskOverflow.Dev Navigation

  • Início
  • system&network
  • Ubuntu
  • Unix
  • DBA
  • Computer
  • Coding
  • LangChain

Mobile menu

Close
  • Início
  • system&network
    • Recentes
    • Highest score
    • tags
  • Ubuntu
    • Recentes
    • Highest score
    • tags
  • Unix
    • Recentes
    • tags
  • DBA
    • Recentes
    • tags
  • Computer
    • Recentes
    • tags
  • Coding
    • Recentes
    • tags
Início / unix / Perguntas / 439514
Accepted
Age87
Age87
Asked: 2018-04-24 07:30:50 +0800 CST2018-04-24 07:30:50 +0800 CST 2018-04-24 07:30:50 +0800 CST

Remova as linhas duplicadas adjacentes enquanto mantém a ordem

  • 772

Eu tenho um arquivo com uma coluna com nomes que se repetem várias vezes cada. Quero condensar cada repetição em uma, enquanto mantenho quaisquer outras repetições com o mesmo nome que não sejam adjacentes a outras repetições com o mesmo nome.

Por exemplo, eu quero virar o lado esquerdo para o lado direito:

Golgb1    Golgb1    
Golgb1    Akna
Golgb1    Spata20
Golgb1    Golgb1
Golgb1    Akna
Akna
Akna
Akna
Spata20
Spata20
Spata20
Golgb1
Golgb1
Golgb1
Akna
Akna
Akna

Isto é o que tenho usado: perl -ne 'print if ++$k{$_}==1' file.txt > file2.txt No entanto, este método mantém apenas um representante da esquerda (ou seja, Golb1 e Akna não são repetidos).

Existe uma maneira de manter nomes exclusivos para cada bloco, mantendo nomes que se repetem em vários blocos não adjacentes?

awk sed
  • 5 5 respostas
  • 3676 Views

5 respostas

  • Voted
  1. Best Answer
    DopeGhoti
    2018-04-24T07:40:08+08:002018-04-24T07:40:08+08:00

    uniqfará isso por você:

    $ uniq inputfile
    Golgb1
    Akna
    Spata20
    Golgb1
    Akna
    
    • 25
  2. RomanPerekhrest
    2018-04-24T07:39:32+08:002018-04-24T07:39:32+08:00

    Awksolução:

    awk '$1 != name{ print }{ name = $1 }' file.txt
    

    A saída:

    Golgb1
    Akna
    Spata20
    Golgb1
    Akna
    
    • 10
  3. Sundeep
    2018-04-24T07:37:09+08:002018-04-24T07:37:09+08:00

    Tente isto - salve a linha anterior e compare com a linha atual

    $ perl -ne 'print if $p ne $_; $p=$_' ip.txt
    Golgb1
    Akna
    Spata20
    Golgb1
    Akna
    

    Você também marcou uniq- você tentou?

    $ uniq ip.txt
    Golgb1
    Akna
    Spata20
    Golgb1
    Akna
    
    • 6
  4. Rakesh Sharma
    2018-04-27T04:46:41+08:002018-04-27T04:46:41+08:00

    Com o sed pode ser feito da seguinte forma:

    sed -e '$!N;/^\(.*\)\n\1$/!P;D' input_file
    

    Aqui temos no espaço padrão a qualquer momento 2 linhas. Quando a comparação entre eles falha, imprimimos o primeiro e cortamos na frente e voltamos e acrescentamos a próxima linha no espaço do padrão. Enxágue... repita

    Utilizando Perl no modo slurp, tratamos o arquivo inteiro como uma string longa na qual o regex é aplicado, o que faz a comparação para você.

    perl -0777pe 's//$1/ while /^(.*\n)\1+/gm' input_file
    
    • 1
  5. MattS
    2018-06-28T15:55:20+08:002018-06-28T15:55:20+08:00

    Pergunta sobre a solução sed de Rakesh Sharma.

    E se você tiver um arquivo de entrada como:

    -126.1 48.206
    -126.106 48.21
    -126.11 48.212
    -126.114 48.214
    -126.116 48.216
    -126.118 48.216
    -126.128 48.222
    -126.136 48.226
    

    E você quer que um arquivo de saída seja:

    -126.1 48.206
    -126.106 48.21
    -126.11 48.212
    -126.114 48.214
    -126.116 48.216
    -126.128 48.222
    -126.136 48.226
    

    Observe a falta:

    -126.118 48.216
    

    Eu sei que o comando que eu quero é semelhante à sua solução:

    sed -e '$!N;/^\(.*\)\n\1$/!P;D' input_file
    

    Não é possível alterá-lo da maneira correta para imprimir as duas colunas e apenas ser classificado dessa maneira especial com os valores da coluna 2. Alguma dica?

    • 0

relate perguntas

  • Como posso melhorar este script de conversão de personagens?

  • Como remover uma única linha entre duas linhas

  • Reorganize as letras e compare duas palavras

  • Embaralhamento de arquivo de várias linhas

Sidebar

Stats

  • Perguntas 205573
  • respostas 270741
  • best respostas 135370
  • utilizador 68524
  • Highest score
  • respostas
  • Marko Smith

    Como exportar uma chave privada GPG e uma chave pública para um arquivo

    • 4 respostas
  • Marko Smith

    ssh Não é possível negociar: "nenhuma cifra correspondente encontrada", está rejeitando o cbc

    • 4 respostas
  • Marko Smith

    Como podemos executar um comando armazenado em uma variável?

    • 5 respostas
  • Marko Smith

    Como configurar o systemd-resolved e o systemd-networkd para usar o servidor DNS local para resolver domínios locais e o servidor DNS remoto para domínios remotos?

    • 3 respostas
  • Marko Smith

    Como descarregar o módulo do kernel 'nvidia-drm'?

    • 13 respostas
  • Marko Smith

    apt-get update error no Kali Linux após a atualização do dist [duplicado]

    • 2 respostas
  • Marko Smith

    Como ver as últimas linhas x do log de serviço systemctl

    • 5 respostas
  • Marko Smith

    Nano - pule para o final do arquivo

    • 8 respostas
  • Marko Smith

    erro grub: você precisa carregar o kernel primeiro

    • 4 respostas
  • Marko Smith

    Como baixar o pacote não instalá-lo com o comando apt-get?

    • 7 respostas
  • Martin Hope
    rocky Como exportar uma chave privada GPG e uma chave pública para um arquivo 2018-11-16 05:36:15 +0800 CST
  • Martin Hope
    Wong Jia Hau ssh-add retorna com: "Erro ao conectar ao agente: nenhum arquivo ou diretório" 2018-08-24 23:28:13 +0800 CST
  • Martin Hope
    Evan Carroll status systemctl mostra: "Estado: degradado" 2018-06-03 18:48:17 +0800 CST
  • Martin Hope
    Tim Como podemos executar um comando armazenado em uma variável? 2018-05-21 04:46:29 +0800 CST
  • Martin Hope
    Ankur S Por que /dev/null é um arquivo? Por que sua função não é implementada como um programa simples? 2018-04-17 07:28:04 +0800 CST
  • Martin Hope
    user3191334 Como ver as últimas linhas x do log de serviço systemctl 2018-02-07 00:14:16 +0800 CST
  • Martin Hope
    Marko Pacak Nano - pule para o final do arquivo 2018-02-01 01:53:03 +0800 CST
  • Martin Hope
    Kidburla Por que verdadeiro e falso são tão grandes? 2018-01-26 12:14:47 +0800 CST
  • Martin Hope
    Christos Baziotis Substitua a string em um arquivo de texto enorme (70 GB), uma linha 2017-12-30 06:58:33 +0800 CST
  • Martin Hope
    Bagas Sanjaya Por que o Linux usa LF como caractere de nova linha? 2017-12-20 05:48:21 +0800 CST

Hot tag

linux bash debian shell-script text-processing ubuntu centos shell awk ssh

Explore

  • Início
  • Perguntas
    • Recentes
    • Highest score
  • tag
  • help

Footer

AskOverflow.Dev

About Us

  • About Us
  • Contact Us

Legal Stuff

  • Privacy Policy

Language

  • Pt
  • Server
  • Unix

© 2023 AskOverflow.DEV All Rights Reserve