TCL e EXPECT

[gustavolinux]

Pessoal, alguém que entenda de tcl e expect poderia me ajudar por favor?

Estou fazendo um script tcl bem simples para executar apenas um comando via ssh, sem eu precisar digitar a senha manualmente (o tcl envia a senha).

Até a parte de enviar a senha eu consegui programar, porém eu não sei como eu faço para fazer aparecer o resultado do comando que é executado depois que estou autenticado.

A parte do meu script tcl em que eu atolei foi esta:

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

package require Expect;

spawn ssh root@172.21.1.99 ls

expect "Password: "

send "123\r"



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

Bem, quando executo esse script (teste.tcl), o que acontece é o seguinte (não mostra o resultado do comando):

root@linuxbermudas:/home/root# tclsh ./teste.tcl
spawn ssh root@172.21.1.99 ls
Password: root@linuxbermudas:/home/root#

O que eu preciso fazer para o comando efetivamente me mostrar a lista de diretórios, ou seja, me mostrar a saída do comando ls executando via ssh?


abraços e orbigado desde já