インデントされた出力から行を抽出する

インデントされた出力から行を抽出する

シェルコマンドでddcutilの次の出力を解析したいと思います。

Model: MQ780
MCCS version: 2.1
Commands:
   Op Code: 01 (VCP Request)
   Op Code: 02 (VCP Response)
   Op Code: 03 (VCP Set)
   Op Code: 0C (Save Settings)
   Op Code: E3 (Capabilities Reply)
   Op Code: F3 (Capabilities Request)
VCP Features:
   Feature: 02 (New control value)
   Feature: 04 (Restore factory defaults)
   Feature: 05 (Restore factory brightness/contrast defaults)
   Feature: 08 (Restore color defaults)
   Feature: 10 (Brightness)
   Feature: 12 (Contrast)
   Feature: 14 (Select color preset)
      Values:
         05: 6500 K
         08: 9300 K
         0b: User 1
   Feature: 16 (Video gain: Red)
   Feature: 18 (Video gain: Green)
   Feature: 1A (Video gain: Blue)
   Feature: 52 (Active control)
   Feature: 60 (Input Source)
      Values:
         11: HDMI-1
         12: HDMI-2
         0f: DisplayPort-1
         10: DisplayPort-2
   Feature: AC (Horizontal frequency)
   Feature: AE (Vertical frequency)
   Feature: B2 (Flat panel sub-pixel layout)
   Feature: B6 (Display technology type)
   Feature: C0 (Display usage time)
   Feature: C6 (Application enable key)
   Feature: C8 (Display controller type)
   Feature: C9 (Display firmware level)
   Feature: D6 (Power mode)
      Values:
         01: DPM: On,  DPMS: Off
         04: DPM: Off, DPMS: Off

別のスクリプトにパイプできるように、「Feature:60」値を抽出しようとしています。

11: HDMI-1
12: HDMI-2
0f: DisplayPort-1
10: DisplayPort-2

これを行うエレガントな方法はありますか?私は次の正規表現を思い出しましたが、より良い方法があると思いました。

$ sudo ddcutil capabilities | pcregrep -M -o2 "(?s)(Feature: 60.*?Values:)(.*?)(Feature)"

出力がjson形式でyamlがjqあると思いますyqが、それをyamlとして受け入れられない場合は使用できます。

ベストアンサー1

#!/bin/perl
while(<>) {
   if (/Feature: 60/) {
     while(<>) {
       last if (/Feature/);
       next if (/Values/);
       print $_, "\n";
     }
   }
}

単純な:)

おすすめ記事