regex - 如何通过 perl 中的字符串解析以提取某个值？

Question

我有以下字符串

> show box detail
   2 boxes:
1) Box ID: 1
   IP:                  127.0.0.1
   Interface:           1/1
   Priority:            31
2) Box ID: 2
   IP:                  192.68.1.1
   Interface:           1/2
   Priority:            31

如何从 perl 中的上述字符串获取 BOX ID？这里的盒子数量可能会有所不同。那么根据盒子“n”的数量，如果显示盒子细节可以以相同的格式达到 n 个节点，如何提取盒子 ID？

Answer 1

my @ids = $string =~ /Box ID: ([0-9]+)/g;

更严格：

my @ids = $string =~ /^[0-9]+\) Box ID: ([0-9]+)$/mg;