regex - 在设计正则表达式时需要帮助

Question

"LIM-1-2::PROVPEC=NTK552DA,CTYPE=\"LIM C-Band\":OOS-AU,UEQ"   
"2XOSC-1-4::PROVPEC=NTK554BA,CTYPE=\"OSC w/WSC 2 Port SFP 2 Port 10/100 BT\":OOS-AU,UEQ"
"P155M-1-4-1::PROVPEC=NTK592NP,CTYPE=\"OC-3 0-15dB CWDM 1511 nm\":OOS-AU,UEQ"

我在一个文件中有这些数据。我需要为第一个设备提取-1-2，同样为最后一个设备提取-1-4-1。我稍后会使用这些数据。我能够弄清楚如何获得 -1-1，但它还不够通用，无法获得 -1-1-4。

设备也可以有一个子槽位。这个列表是暂定的。EQP-货架-槽-子槽。我需要一些表达式来检查子槽是否存在，以 -shelf-slot-subslot 或 -shelf-slot 形式提供给我

Answer 1

怎么样：

my ($wanted) = $str =~  /^\w+([^:]+)/;

或者，如果引号是字符串的一部分：

my ($wanted) = $str =~  /^"\w+([^:]+)/;