regex - perl でのリスト比較

Question

コマンド「sh値」は

A: optimal
size: 100
feature : ON
Minimum size: 0
CPU load: 100%

終わり

上記の名前と値のペアは、デフォルト値を持つパラメーターです。各パラメーターに対応する値をコマンド sh 値の出力と、起動するたびに比較し、それらが正しく一致するかどうかを確認したいと考えています。値が一致しない場合は、一致しないパラメーターをマークする必要があります。

どうやってするの ？また、繰り返しとして表示される一致結果でリストを繰り返し処理することは可能ですか?

Answer 1

順序が一定であると仮定するつもりはありません (つまり、次のコードは一定であるかどうかに関係なく機能します)。フィールドの順序は重要ではないと仮定します。

1. 前の出力の各行について、
   1. split最初の行:。
   2. で要素を作成します%prev_values。ここで、キーと値は の結果ですsplit。
2. 現在の出力の各行について、
   1. split最初の行:。
   2. で要素を作成します%cur_values。ここで、キーと値は の結果ですsplit。
3. の各キーについて%prev_values、
   1. キーが に存在しない場合%cur_values、
      1. このキーは削除されました。適切なメッセージを出力します。
4. の各キーについて%cur_values、
   1. キーが に存在しない場合%prev_values、
      1. この鍵は新しい鍵です。適切なメッセージを出力します。
   2. そうしないと
      1. そのキーの値が の値と%cur_values異なる場合%prev_values、
         1. このキーの値が変更されました。適切なメッセージを出力します。