使用TCL语法将tr69 get InternetGatewayDevice.LANDevice.1.Hosts.Host.2.Active中的2取出

使用TCL语法可以通过正则表达式来提取数字2，具体代码如下：

set str "InternetGatewayDevice.LANDevice.1.Hosts.Host.2.Active"
set pattern {\d+}
if {[regexp $pattern $str match]} {
    set result $match
    puts $result
} else {
    puts "No match"
}

输出结果为：

2

这样就可以提取出字符串中的数字2了。