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;