И в чём проблема?

Капитан Очевидность

Проблема в том, что этот клоун не может в программирование, а зачёт получить надо. Так-то!

Не думаю, что речь о зачете, тут же тикль! Не всякий современный препод слышал про этот язык.

хз, что тебе нужно на самом деле, походу ты всё перепутал и перемешал откуда-что-вызывается
но, судя по т.н. ключевым словам, тебе нужно почитать это:

https://ru.wikipedia.org/wiki/Expect

https://the-bosha.ru/2013/07/11/avtomatiziruem-rabotu-v-interaktivnyih-konsol...

http://www.tcl.tk/man/expect5.31/expect.1.html

спасибо!я начинаю только изучать tcl. Поэтому может вопрос поставлен некорректно.

spawn ssh

там все просто главное не забывать о $spawn_id

ну вот к примеру, я хочу чтобы идентификация выполнялась с помощью процедуры «connect»

#!/usr/bin/env tclsh package require Expect

set host «100.140.100.471» set user «USERID» set pass «PASSWORD» set cmd «ls»

proc connect {user host pass} { spawn ssh -x -o PasswordAuthentication=true $user@$host set spid1 $spawn_id set timeout 300 expect { -i $spid1 «word:» { exp_send -i $spid1 $pass\r exp_continue } «$*» { send «ifconfig\r» return $spid1 } } return $spid1 }

#в основной теле хочу посылать команды на удаленную машину set A [connect $user $host $pass] expect { -i A «$*» { send «ls\r» } }

Сперва нужно победить разметку: www.linux.org.ru/help/lorcode.md

upvar

По умолчению все переменные в TCL локальные. Чтобы другая процедура использовала соединение открытое процедурой connect надо $spawn_id передать на уровень выше с помощью upvar или вообще global.

#!/usr/bin/env tclsh package require Expect

set host "lhost" set user "USERID" set pass "PASSWORD" set cmd "ls" proc connect {user host pass} { global spid1 spawn ssh -x -o PasswordAuthentication=true $user@$host set spid1 $spawn_id set timeout 300 puts "timeout 1" expect { -i $spid1 "word:" { exp_send -i $spid1 $pass\r exp_continue } "$*" { send "ifconfig\r" return $spid1 } } return $spid1 }

set A [connect $user $host $pass] expect { -i A "$*" { send "ls\r" } }

Exploring expect

https://www.busindre.com/_media/exploring_expect.pdf

Да её уже читал !Немного разобрал, получилось запустить, но суть spawn_id еще не до конца понял.

суть spawn_id

Ты spawn программу - тебе возврашают spawn_id. Две программы одновременно - 2 разных spawn_id. Все последующие expect, send и interact должны знать с которой из программ им взаимодействовать - для этого им и нужен spawn_id конкретной программы.

PS. читайте книги, они рулез (с)

Ок , спасибо !