Início / unix / Perguntas / 461848
Accepted
danijar
Asked: 2018-08-11 08:36:17 +0800 CST

Selecione as linhas com base nas linhas acima delas

  • 772

Tenho uma lista de itens, da qual desejo selecionar os nomes dos itens ativos:

item {
  status: "Active"
  properties {
    key_a: value
  }
  id: 42
  name: "Foo"
}
item {
  status: "Disabled"
  properties {
    key_b: value
  }
  id: 12
  name: "Bar"
}
item {
  status: "Active"
  id: 2
  name: "Baz"
}

Eu sei que posso extrair os nomes usando grupos de captura com pcregrep:

$ cat list.txt | pcregrep -o1 -i '^  name: "(.*)"'
Foo
Bar
Baz

Usando uma expressão OR, também posso obter uma lista de valores e nomes de status repetidos:

$ cat list.txt | pcregrep -o2 -i '^  (status|name): "(.*)"'
Active
Foo
Disabled
Bar
Active
Baz

Por fim, preciso filtrar os nomes na lista com base nas linhas anteriores. Como posso fazer isso?

A saída final deve ser:

Foo
Baz
grep text-processing

4 respostas

  1. Eu não acho que você pode fazer isso com uma grepvariação sozinha (reconhecidamente não sei pcregrep). Experimente awk:

    awk '/^ *status.*Active.$/ {ACT = 1} /^ *name:/ && ACT {gsub (/"/, "", $2); print $2; ACT = 0}' file
Foo
Baz
    • 2

  2. Você pode usar sed também

    sed '/status.*Active/,/name/!d;/name/!d;s/[^"]*"\([^"]*\)"/\1/' infile
    • 1
  3. Best Answer

    Como a maior parte do trabalho pesado já foi feito por pcregrep, agora você pode passá-lo' so/p para este pequeno sedtrecho:

      sed -ne 'N;s/^Active\n//p'

    o que faz sedolhar para 2 linhas de cada vez, em vez do padrão de 1. O Ncomando cola a próxima linha ao espaço do padrão separando com uma nova linha \n. Agora, somente se o sed foi capaz de remover a primeira linha Ativa no espaço de padrão, o espaço de padrão restante será impresso. Esta é uma impressão condicional. Otw nada e -ndeve garantir que não haja impressão automática do espaço do padrão. HTH.

    • 1

  4. Você também pode usar o operador range of Perle restringi-lo com a boolean conditionpara lidar com parênteses aninhados {}em um bloco.

    Normalmente, alguém escreveria um intervalo em Perlas /re1/ ... /re2/, isso fará com perlque selecione os blocos que começam com regex /re1/e terminam nas linhas que satisfazem o regex /re2/. Poderíamos restringir ainda mais isso, para dizer: /re1/ ... /re2/ && $depth==0.

    Isso fará com perlque selecione apenas os blocos que possuem uma restrição adicional de profundidade ser zero. Como neste caso, o fim do bloco acontece apenas quando }é encontrado o que faz com que a contagem de profundidade caia para zero, OTW, o acúmulo de bloco continua além dessa marca.

    perl -lne '
    if ( /\{/ ... /\}/ && !$depth ) {
        if    ( /\{/ )                         { $depth = /^\h*item\h+\{\h*$/ ? 0 : ++$depth;     }
        elsif ( /\}/ )                         { print($name),undef($flag) if !$depth-- && $flag; }
        elsif ( /^\h*status:\h*"Active"\h*$/ ) { $flag = 1;                                       }
        elsif ( /^\h*name:\h/ )                { $name = (split /"/)[1];                          }
    }
' input.file
    • 1

relate perguntas