Início / unix / Perguntas / 783583
Accepted
Sistemas Libsur
Asked: 2024-09-17 02:41:42 +0800 CST

regex para detectar duas linhas consecutivas que tenham as mesmas palavras na mesma ordem, mas espaços diferentes no início, no final e entre as palavras

  • 772

Quero encontrar um regex ou perl oneliner para detectar duas linhas consecutivas que tenham as mesmas palavras na mesma ordem, mas os espaços iniciais, finais e a quantidade de espaços entre as palavras podem variar de uma linha para a outra. O regex deve excluir as linhas que não correspondem.

Eu uso essa regex para detectar linhas consecutivas idênticas.
^\s*(.*\S)(\s\n*\1)+$
Ela falha quando a quantidade de espaço em branco varia de uma linha para outra.

Eu tenho este texto de exemplo

Mary has a little lamb. The live near the mountain.
Mary has a little lamb. The live near the mountain.

vrfgrgru hfiughf iujhfuihgifughuir nuhuvhfug

Mary has  a little lamb. The live near the mountain.
  Mary has a little lamb. The live near the mountain.

 Mary has a little lamb.  The live near the mountain.
Mary has a little lamb. The live near the mountain.

fghurhg bojghirejyohi ndhguhyituhgi
gbshbsiughsf bnighriugh hurhgiurhgriu

 Elvis was the greatest singer of all time. He has 18 number one in billboard charts.
Elvis was the greatest singer  of all time. He has 18 number one in billboard charts.

sgfuhgdugusd vfjsng orjgoergo ejfio dsmnjn
fbdhsbfgdbhhbfhdsfdf

Mary has a little lamb. The live near the mountain.
 Mary has a little lamb. The live near the mountain.

gsete gerttrb oijoijoijoijoijoiojo gogoerijoi

jhoiyrei  erogjrijgtrio noifdo mkooi 

This has been the coldest winter in the last 20 years.
 This has  been the coldest winter in the  last 20 years.

Independentemente do número de espaços nas linhas, a regex deve exibir as linhas consecutivas que contêm as mesmas informações.

Não há três em uma fileira e não há linhas vazias entre as linhas correspondentes.

grep

1 respostas

  1. Best Answer

    Bem, não é uma expressão regular e não é uma linha única em Perl, mas isso fará o que eu acho que você realmente quer fazer usando qualquer awk em qualquer shell em qualquer sistema Unix:

    $ awk '{c=$0; $1=$1} k==$0{print p ORS c ORS} {k=$0; p=c}' file
Mary has a little lamb. The live near the mountain.
Mary has a little lamb. The live near the mountain.

Mary has  a little lamb. The live near the mountain.
  Mary has a little lamb. The live near the mountain.

 Mary has a little lamb.  The live near the mountain.
Mary has a little lamb. The live near the mountain.

 Elvis was the greatest singer of all time. He has 18 number one in billboard charts.
Elvis was the greatest singer  of all time. He has 18 number one in billboard charts.

Mary has a little lamb. The live near the mountain.
 Mary has a little lamb. The live near the mountain.

This has been the coldest winter in the last 20 years.
 This has  been the coldest winter in the  last 20 years.

    Imagino que você prefira a brevidade, já que pediu uma expressão regular ou uma frase curta em Perl, mas se preferir legibilidade, aqui está novamente com nomes de variáveis ​​mais significativos e melhores espaços em branco:

    awk '
    { currRec=$0; $1=$1; currKey=$0 }
    prevKey == currKey { print prevRec ORS currRec ORS } 
    { prevKey=currKey; prevRec=currRec }
' file
    • 1

relate perguntas