Início / computer / Perguntas / 1786352
Accepted
vim_overlord
Asked: 2023-05-29 13:48:13 +0800 CST

Como deletar todas as ocorrências de uma palavra seguida por outra, sem alterar o espaço em branco?

  • 772

Suponha que meu arquivo se pareça com isto:

foo  bar
 foo    bar bar
foo foo      bar  foo

O que eu quero fazer é excluir todos os fooque são seguidos por um bar(ou seja, há apenas espaços em branco entre eles), sem alterar nenhum espaço em branco. Abaixo, substituí todos os caracteres que devem ser excluídos por sublinhados para deixar isso claro:

___  bar
 ___    bar bar
foo ___      bar  foo

O comando deve resultar no seguinte arquivo:

  bar
     bar bar
foo       bar  foo

Como eu poderia conseguir isso com sed ou awk?

shell

3 respostas

  1. Best Answer

    OK, eu descobri como fazer isso. O comando para fazer isso com sed seria:

    sed -i -E 's/foo([[:blank:]]*)bar/\1bar/' file
    • 3

  2. Com qualquer coisa que suporte expressões regulares compatíveis com perl (PCRE), você pode usar uma previsão positiva:

    perl -pe 's/foo(?=\s*bar)//' < txt

    (?=)é uma " afirmação de antecipação positiva de largura zero ".

    Ele precisa corresponder para que todo o RE corresponda, mas não inclui o que corresponde, portanto, você não precisa capturar e reinserir o texto correspondente.

    Há também lookahead negativo e lookbehinds positivo e negativo, todos chamados coletivamente de "lookarounds".

    • 3

  3. Usando Raku (anteriormente conhecido como Perl_6)

    ~$ raku -pe 's:g/   foo <?before \s* bar> //;'   file

#OR

~$ raku -pe 's:g/ <(foo)>        \s* bar //;'  file

    As respostas acima são codificadas em Raku, um membro da família Perl de linguagens de programação. As vantagens do Raku incluem suporte integrado a Unicode de alto nível, bem como uma implementação Regex robusta/refinada. Acima, Raku Regexes são tolerantes a espaço em branco no domínio de reconhecimento (metade esquerda de s///), então os átomos Regex podem ser espalhados (e alinhados). Além disso, todos os modificadores Regex, como :global(ou :g) movem-se para a cabeça do s///operador em Raku. Como Perl, o sinalizador global ou "advérbio" permite mais de uma correspondência por linha.

    A primeira resposta é uma tradução aproximada da excelente resposta Perl(5) de @jcaron. Observe que no Raku, as previsões positivas são escritas <?before ... >. <(A segunda resposta usa os marcadores de captura de Raku )>, para que, após a correspondência dos três átomos, apenas fooseja retido na captura (e excluído na substituição).

    Ambas as respostas mudam especificamente fooantes bar, com apenas espaços em branco entre elas. Este é um ponto importante: dada a frase "my-valentine, my bloody valentine", o código Raku s:g/my <?before \s* valentine> //removerá o primeiro "my" (porque "my- is_before -valentine"), mas o segundo "my" permanecerá intocado.

    https://docs.raku.org/language/regexes
    https://raku.org

    • 2

relate perguntas