regex - perl中的列表比较

Question

命令“sh value”给出

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. 此键的值已更改。打印适当的消息。