Looking For Help Performing a many point to many network reachability validation with a script after a Major Routing Modification

Question

I have inherited a network that was not put together so well...as it has 50 sites but 11 points of mulual redistribution between OSPF and BGP.
The result is not surprising some route paths that although stable are asymmetrical and they cause issues for certain applications....like Voice and RDP.
This evening I  have a maintence window to try to fix this.
I need to validate with ping and traceroute from many points (Cisco Siwtches and Routers) in the to many points in the network.
Can anyone point me to a TCL Shell script that would serve as an example of how to accomplish this?
Please be advised that I am only nominally functional with TCL shell scripting language.
Respectfully,
Duane Bodle               

Answer 1

The first thing to do is:
regexp "match regexp = ([0-9]+)" $_cli_result match count
if $count eq 0
exit 0
end
The second is a bit more challenging.  I think this will work:
cli command "show call active voice br"
foreach line $_cli_result "\n"
regexp "^([0-9a-zA-Z]+) : " $line match callid
if $_regexp_result eq 1
  continue
end
regexp "^dur 1d" $line
if $_regexp_result eq 1
  cli command "show call active voice br | section $callid"
  syslog msg "$_cli_result"
end
end