Início / unix / Perguntas / 548934
Accepted
Geremia
Asked: 2019-10-27 21:36:27 +0800 CST

Pipe sed capture grupo através de programa externo antes de substituir?

  • 772

Existe uma maneira de sedcanalizar um grupo de captura para outro programa, tornando \1o RHS da regexp igual à saída desse programa?

Por exemplo, correr

sed 's/lorem ipsum \(foobar\)/\1/g' file.txt

canalizaria "foobar" através de outro programa (por exemplo, tr 'o' 'a') para fazer \1"faabar" para sedsubstituir "lorem ipsum foobar" por "lorem ipsum faabar"?

Este é apenas um exemplo simples. Percebo que poderia converter "foobar" para "faabar" sem usar tr.

sed

2 respostas

  1. Best Answer

    Você pode com GNU sed - usando o emodificador (execute):

    e
    Este comando permite canalizar a entrada de um comando shell para o espaço padrão. Se uma substituição foi feita, o comando encontrado no espaço padrão é executado e o espaço padrão é substituído por sua saída. Uma nova linha à direita é suprimida; os resultados são indefinidos se o comando a ser executado contiver um caractere NUL. Esta é uma extensão GNU sed.

    ( fonte )

    mas tem utilidade limitada, pois executa e substitui todo o espaço de padrão, em vez de grupos de captura especificados. Então você precisaria pular por alguns aros muito feios.

    Ex.

    $ echo 'lorem ipsum foobar' | sed '
    s/\(lorem ipsum \)\(foobar\)/printf "%s%s" "\1" "$(echo "\2" | tr o a)"/e
  '
lorem ipsum faabar
    • 3

  2. Que eu saiba: não.

    É possível gravar o espaço de padrão em um arquivo usando

    sed  '/example/w file'

    mas não o grupo de captura. Você pode executar um programa externo com

    sed 'e ls'

    e você pode ler um arquivo com

    sed 'r file'

    mas não vejo uma maneira sustentável de fazer o que você está pedindo. E, francamente, você está no limite da utilidade seddaqui.

    awkpode ser um pouco mais flexível aqui, mas este é o lugar onde perlestá sua melhor opção, como @ikkachu já sugeriu em seu comentário.

    Como uma pequena idéia de quão trivial é em perl:

    while (<>){
    if (/(.*)(pattern)(.*)/){
        $pre=$1;
        $pat=$2;
        $post=$3;
        $repl=`filter_pgm $pat`;
        print $pre . $repl . $post;
    }
    else {
        print;
    }
}

    (para aqueles mais versados ​​em Perl: eu sei que é feio e pode precisar de um pouco de polimento antes de rodar em produção)

    • 1

relate perguntas