Cisco TCL script

1. create the script onto a Cisco router

2. run the script from that router

3. collect the result from that router

877w#tclsh

877w(tcl)#

puts [open flash:pinggoogle.tcl w+] {

set pingresult [open flash:pingresult w+]

set output [exec ping 8.8.8.8 r 1000]

puts $pingresult [string trim $output]

close $pingresult

}

877w(tcl)#tclquit

877w#tclsh pinggoogle.tcl

Ref: http://www.tcl.tk/man/tcl/tutorial/Tcl24.html 

http://www.cisco.com/en/US/docs/ios/12_3t/12_3t2/feature/guide/gt_tcl.html#wp1027177 

http://en.wikipedia.org/wiki/Tcl 

http://www.netcraftsmen.net/resources/archived-articles/374-tcling-your-cisco-router.html 

http://www.cisco.com/en/US/docs/ios/12_3t/12_3t2/feature/guide/gt_tcl.html