用于从给定输出中检索对象状态的 Shell 脚本

Question

我正在尝试使用 shell 脚本从以下输出中检索对象的状态（Name 字段的值和 OpState 字段的值对应相同）。例如在上面的输出中的状态“DP-UID-FSH”的“向上”。我想产生如下输出：

平台：Solaris 上的 Bash。

DP-UID-FSH is up.
DP-Cert-FSH is up.

以下是需要解析以产生上述输出的文件内容。

<ConfigState>saved</ConfigState></ObjectStatus><ObjectStatus xmlns:env="http://www.w3.org/2003/05/soap-envelope">
<Class>HTTPSSourceProtocolHandler</Class>
<OpState>up</OpState>
<AdminState>enabled</AdminState>
<Name>DP-UID-FSH</Name>
<EventCode>0x00000000</EventCode>
<ErrorCode/>
<ConfigState>saved</ConfigState></ObjectStatus><ObjectStatus xmlns:env="http://www.w3.org/2003/05/soap-envelope">
<Class>SLMAction</Class>
<OpState>up</OpState>
<AdminState>enabled</AdminState>
<Name>DP-Cert-FSH</Name>
<EventCode>0x00000000</EventCode>
<ErrorCode/>
<ConfigState>saved</ConfigState></ObjectStatus><ObjectStatus     xmlns:env="http://www.w3.org/2003/05/soap-envelope">
<Class>SLMAction</Class>
<OpState>up</OpState>
<AdminState>enabled</AdminState>
<Name>shape</Name>
<EventCode>0x00000000</EventCode>
<ErrorCode/>

保存

我是 shell 脚本的新手，不知道如何实现这一点？

Answer 1

Awk 解决方案变得混乱，所以我只添加另一个使用 Perl 的答案。我不精通 Perl，但我学起来很容易，这也可以解决它：

perl -lane '$state = (split(/[<>]/))[2] if /OpState/; print ((split(/[<>]/))[2] . " is $state.") if /<Name>/' file

输出：

DP-UID-FSH is up.
DP-Cert-FSH is up.
shape is up.

作为jaypal suggested（谢谢），由于启用了自动拆分（-a），因此不需要拆分：

perl -F'[<>]' -lane '$state = $F[2] if /OpState/; print "$F[2] is $state" if /<Name>/' file

Answer 2

使用 GNU Awk 或 Mawk：

awk -v RS='<OpState>' -F '[<>]' 'NR > 1 { printf "%s is %s.\n", $9, $1 }' file

另一个：

awk '/OpState/ { gsub(/<\/?OpState>/, ""); s = $0; } /<Name>/ { gsub(/<\/?Name>/, ""); printf "%s is %s.\n", $0, s; }' file

还有一个：

awk -F '[<>]' '/OpState/ { s = $3; } /<Name>/ { printf "%s is %s.\n", $3, s; }' file

输出：

DP-UID-FSH is up.
DP-Cert-FSH is up.
shape is up.