带有变量的 TCL 正则表达式

Question

我需要验证哪个IP地址宣布默认路由：

set command [ exec "show ip route" ]

输出：

Codes: L - local, C - connected, S - static, R - RIP, M - mobile, B - BGP
D - EIGRP, EX - EIGRP external, O - OSPF, IA - OSPF inter area
N1 - OSPF NSSA external type 1, N2 - OSPF NSSA external type 2
E1 - OSPF external type 1, E2 - OSPF external type 2
i - IS-IS, su - IS-IS summary, L1 - IS-IS level-1, L2 - IS-IS level-2
ia - IS-IS inter area, * - candidate default, U - per-user static route
o - ODR, P - periodic downloaded static route, H - NHRP, l - LISP
+ - replicated route, % - next hop override
Gateway of last resort is 10.17.1.252 to network 0.0.0.0
B*    0.0.0.0/0 [200/0] via 10.17.1.252, 01:16:22
10.0.0.0/8 is variably subnetted, 2 subnets, 2 masks
C        10.17.1.0/24 is directly connected, FastEthernet1/0
L        10.17.1.253/32 is directly connected, FastEthernet1/0
172.22.0.0/32 is subnetted, 1 subnets
C        172.22.12.250 is directly connected, Loopback1
172.26.0.0/16 is variably subnetted, 3 subnets, 2 masks
B        172.26.69.64/30 [200/0] via 10.17.1.252, 01:16:33
C        172.26.70.64/30 is directly connected, FastEthernet0/0
L        172.26.70.66/32 is directly connected, FastEthernet0/0

我需要找到这个："0.0.0.0/0 [200/0] 通过 10.17.1.252"，但是这个地址：10.17.1.252 可以更改，如何将变量放入正则表达式中？

set routes [ regexp {(0.0.0.0/0 [200/0] via $bgp_neighbor)} $command match default_route ]

Answer 1

正则表达式不是最佳选择。

string first [format {0.0.0.0/0 [200/0] via %s} $bgp_neighbor] $command 

搜索零方差模式时，string first是最接近的匹配项。使用format构建模式可最大限度地减少您需要执行的转义量。

在这种情况下，无论如何都不需要太多的转义：

string first "0.0.0.0/0 [200/0] via $bgp_neighbor" $command

请注意，如果找到字符串，string first返回字符串的位置，如果未找到，则返回 -1。

文档： 字符串

Answer 2

您需要构建一个动态正则表达式，请记住未转义.匹配正则表达式中的任何字符，这就是为什么您需要在将其添加到正则表达式之前转义动态部分的原因。

这是解决问题的一种方法($a是保存文本的变量)：

proc reEscape {str} {
regsub -all {W} $str {\&}
}
set bgp_neighbor {10.17.1.252}
set bgp_neighbor_escaped [reEscape $bgp_neighbor]
set reg {y0.0.0.0/0 [200/0] via }
append reg $bgp_neighbor_escaped
append reg {y}
if {[regexp $reg $a]} {
puts yes
} else {
puts no
}

查看 Tcl 演示

在这里，$bgp_neighbor保存 IP 地址。$bgp_neighbor_escaped是相同的字符串，所有非单词字符都进行了转义(您实际上.替换为.)。y是单词边界，以避免在2222152.1.0.234444中匹配152.1.0.23。

请注意，您可以将所有文字空格替换为s+以匹配任何 1+ 空格字符。