Re: Tcl (Cisco) ping program.....

In article <ciZah.4238$ql2.804@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx>,
Earl Greida <eGREGIOUSgrieda@xxxxxxxxxxxxxxxx> wrote:

"Lag" <clfarris@xxxxxxxxx> wrote in message
news:1164728844.824942.173070@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
I'm completely new to Tcl. I'm trying to come up with a program that
will be feed a list of IP addresses on the screen, one at a time (i.e.
192.168.1.20 - 192.168.1.55) and ping each IP. The program needs to
output the success or failure of the ping. This program will be
running on Cisco equipment! I really could use some help, please. And
if anyone knows any good links or books on Tcl Programming (besides
cisco.com, I've downloaded everything they have...LOL) it would be
appreciated.

Sample Output:

-----------------------------------------------------
IP Successful Ping?
-----------------------------------------------------
192.168.1.20 YES
192.168.1.21 YES
192.168.1.22 NO
192.168.1.23 YES
......

------------------------------------------------------


This program will be a fun exercise and give you good experience. You need
to use Expect and Tcl. Download/install Activestate since it includes
Expect. Buy "Exploring Expect" by Don Libes and "Practicle Programming in
Tcl/Tk" by Brent Welch.



Earl, this might be misleading. While I advocate *Exploring Expect*
as much as anyone, it's possible that Expect is NOT required in any
meaningful way, depending on exactly what the original poster means,
nor is much study. Maybe he just wants

for {set address 20} {$address <= 55} {incr address} {
set ip 192.168.1.$address
if [catch {exec ping -c 1 $ip}] {
set result NO
} else {
set result YES
}
puts [format %20s\t\t\t%20s $ip $result]
}

Is that close, Mr. Farris? Is so, we can work out the formatting.
.