使用tcl中的接口名称从sh ip int brief中提取ip地址

set output "Interface              IP-Address      OK? Method Status                Protocol
GigabitEthernet0/0     192.168.1.1     YES NVRAM  up                    up      
GigabitEthernet0/1     10.0.0.1            YES NVRAM  up                    up      
Loopback0              172.16.0.1       YES NVRAM  up                    up"

set ip_addresses [regexp -all -inline {\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}} $output]
foreach ip $ip_addresses {
    puts $ip
}

192.168.1.1
10.0.0.1
172.16.0.1