为什么我的正则表达式与我的字符串不匹配？

Question

我希望使用此正则表达式匹配D11-RONPLAYER_DEF_15_PO：

"D\[0-9]+-\[A-Z]*PLAYER_(DEF\[0-9]*)_(\[^_]+)_"

但它不匹配。我怎样才能使它发挥作用？

Answer 1

这适用于我的样本输入：

regexp {D\d+-[A-Z]*PLAYER_(DEF_\d*)_([^_]+)} $str match sub1 sub2

打印匹配组产生：

% puts "$sub1\n$sub2"
DEF_15
PO