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. 此密钥的值已更改。打印相应的消息。