How to use Cisco TCL

Line Count

set cmd [lindex $argv 0]
if {[string equal $cmd ""]} { puts "Usage: wc command"; return; }
set result [ llength [split [exec $cmd] "\n" ] ]
puts -nonewline "OK | count=$result"

alias exec wc tclsh flash:wc.tcl

For Zenoss: https://gist.github.com/7526240

Resources

• http://blog.ipspace.net/2008/02/implement-wc-l-in-cisco-ios.html
• http://blog.ipspace.net/2007/08/example-tcl-script-with-command-line.html