regex - 如何在 tcl 中使用正则表达式提取数组索引

Question

我有一个范围字符串，其形式为 [Numeric1] 或 [Numeric1:Numeric2] 括号也是字符串的一部分。

我想要一个正则表达式为我提供开始索引，而另一个正则表达式为我提供结束索引，无论输入字符串如何。

我已经成功做到了，但我只是想知道是否有更好的方法。 这是我的做法

#[5]
set range_1 "\[5\]"
#[7:9]
set range_2 "\[7:9\]"

set reg_exp_for_start_index {\[([0-9]*)\]|\[([0-9]*):[0-9]*\]}
set reg_exp_for_end_index   {\[([0-9]*)\]|\[[0-9]*:([0-9]*)\]}

set iStart1 [regsub $reg_exp_for_start_index $range_1 {\1\2}]
puts "Start index for Range 1: $iStart1"

set iEnd1 [regsub $reg_exp_for_end_index $range_1 {\1\2}]
puts "End index for Range 1: $iEnd1"

set iStart2 [regsub $reg_exp_for_start_index $range_2 {\1\2}]
puts "Start index for Range 2: $iStart2"

set iEnd2 [regsub $reg_exp_for_end_index $range_2 {\1\2}]
puts "End index for Range 2: $iEnd2"

我得到的预期输出是

Start index for Range 1: 5
End index for Range 1: 5
Start index for Range 2: 7
End index for Range 2: 9

我不喜欢的是我使用了or (|) 我必须将字符串连接为 {\1\2}。

Answer 1

改用regexp。

set range {[5]}
regexp -- {\[([0-9]*)(?::([0-9]*))?\]} $range -> start end
puts "Range: $range"
puts "Start: $start"
puts "End:   $end"

此外，您可能不希望使用 007 等格式的数字作为范围，或空字符串。

regexp -- {\[([1-9]\d*)(?::([1-9]\d*))?\]} $range -> start end

这是an Ideone demo .

最后，-- 简单地结束开关。这是我的一个习惯。 -> 只是一种审美技巧，依赖于 -> 是 Tcl 中有效标识符的事实。它也可能是:

regexp -- {\[([1-9]\d*)(?::([1-9]\d*))?\]} $range match start end