🚀 go-pugleaf

Me respondo a mi mismo,
http://www.etsimo.uniovi.es/tcl/tutorial/index.html , pues expect esta
basado en tcl, y la soluci�n es usar el for de la siguiente manera:
for {set i 0} {$i < 5} {incr i 1} {
comandos ....
}
Gracias de todos modos.

El Tue, 06 May 2003 20:05:23 -0400, r3b00t escribio:

> Tengo el siguiente archivo.
> <<----Inicio--->>
> #!/usr/bin/expect -f
> log_user 0
> spawn telnet 192.168.0.1
> expect -exact "PIX passwd:"
> send -- "clave\r"
> expect "pix>"
> send -- "ena\r"
> expect -exact "Password:"
> send -- "clave\r"
> log_user 1
> for {set i 1} {expr $i '<' 5} {set i $i+1} {
> expect -exact "pix#"
> send -- "ping outbound1 192.168.1.1\r"
> expect -exact "pix#"
> send -- "ping outbound2 192.168.1.1\r"
> }
> expect -exact "pix#"
> send -- "exit"
> exit
> <<----Fin---->>
> 
> He buscado en inet, he leido el man, he visto manuales que tengo a mi
> alcance.
> Y la cosa es que el ciclo for no me funciona, la unica forma que me a
> funcionado es:
> for {} 1 {} {
> comandos ..
> }
> Se supone que en el primer {} se inicializa la variable, en el segundo se
> evalua una expresion y en la tercera se incrementa o varia el valor.
> Pero hasta el momento he probado con expr, de la linea de comandos la
> expresion: expr 1 '<' 5 funciona, la expresion test 1 -lt 5, tambien
> funciona.
> Alguien sabe de algun manual sobre expect en donde se vea el tema mas a
> fondo...
> Les agradeceria su ayuda.
> 
> P.D.: La idea general del programita es que se conecte por telnet a un
> firewall y haga ping por distintos enlaces.