主页 / unix / 问题 / 461848
Accepted
danijar
Asked: 2018-08-11 08:36:17 +0800 CST

根据它们上方的线选择线

  • 772

我有一个项目列表，我想从中选择活动项目的名称：

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"
}

我知道我可以使用捕获组提取名称pcregrep：

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

使用 OR 表达式，我还可以获得重复状态值和名称的列表：

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

最后，我需要根据前面的行过滤列表中的名称。我怎样才能做到这一点？

最终输出应该是：

Foo
Baz
grep text-processing

4 个回答

  1. 我不认为你可以grep单独使用变体来做到这一点（诚然我不知道pcregrep）。尝试awk：

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

  2. 你也可以使用 sed

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

    由于大部分繁重的工作已经由 完成pcregrep，您现在可以将其 so/p 传递给这个简短的sed片段：

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

    这使得sed一次查看 2 行，而不是默认的 1 行。该N命令通过用换行符分隔将下一行粘贴到模式空间\n。现在，只有当 sed 能够删除模式空间中的 Active 第一行时，才会打印剩余的模式空间。这是有条件的打印。Otw nothing 并-n应确保不会自动打印模式空间。HTH。

    • 1

  4. 您还可以使用范围运算符 ofPerl并使用 a 对其进行约束，boolean condition以处理{}块中的嵌套括号。

    通常，人们会在Perlas中写入一个范围/re1/ ... /re2/，这将导致perl选择以 regex 开头/re1/并在满足 regex 的行结束的块/re2/。我们可以进一步限制这一点，例如：/re1/ ... /re2/ && $depth==0。

    这将导致perl仅选择那些具有深度为零的附加约束的块。就像在这种情况下，只有当}发现导致深度计数下降到零时，块结束才会发生，OTW，块累积也会继续超过这个标记。

    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

相关问题