Thanks Joe; Getting it slowly but surely.
I'm struggling a little with TcL, more struggling with the logic of programing in general.
The thing I'm going for now, is to find trunks, and exclude the line of the ip spreadsheet if the interface a mac was learned on is a trunk.
puts $list_b ; # trunk interfaces
Gi0/25
Gi0/26
puts $list_a ; # ip_spreadsheet_entries
10.10.10.1,0015.f990.0460,Gi0/26
10.10.10.2,0015.f990.0461,Gi0/25
10.10.10.3,0015.f990.0463,Gi0/24
foreach ip $list_a
set num 0;
while { $num == 0 } {
foreach trunk $list_b {
set num [regexp ($trunk) $ip]
if {$num == 0 } {
append output \n $ip
}
}
}
}
#the results I'm getting....
puts $output ;
10.10.10.1,0015.f990.0460,Gi0/26
10.10.10.2,0015.f990.0461,Gi0/25
10.10.10.3,0015.f990.0463,Gi0/24
#The Results I'm trying to get
10.10.10.3,0015.f990.0463,Gi0/24
I know it's a logic problem, I don't quite know how to search each line of a list for each line of another list....
