1 
"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 の形式で提供されます

4

1 に答える 1

1

どうですか：

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

または、引用符が文字列の一部である場合:

my ($wanted) = $str =~  /^"\w+([^:]+)/;
于 2013-10-30T16:07:26.183 に答える