需要帮助设计正则表达式

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+([^:]+)/;