Не нашел инфы по нему, по этому пишу сюда...
Как реализовать такую вещь... надо чтобы скрипт содинялся по ssh и в заыисимости от ответа посылал бы определнную команду...
К примеру, простой скрипт для авторизации:#!/usr/bin/perl
use Expect;
$swith = "10.0.0.1";
my $exp = Expect->spawn("ssh $swith");
$exp->expect($timeout,
[ 'UserName:' => sub {
$exp->send("admin\n");
exp_continue; }
],
[ 'PassWord:' => sub {
$exp->send("admin\n");
exp_continue; }
],
'-re', qr'DES:'
);
$exp->send($timeout,"logout\n");
$exp->soft_close();
Надо добавить если в ответ на Expect->spawn("ssh $swith") придет не стандартный 'UserName:', а типа:
The authenticity of host '77.247.215.100 (77.247.215.100)' can't be established.
RSA key fingerprint is 99:33:39:ee:76:77:bc:69:b6:15:39:25:8e:0e:cb:f7.
Are you sure you want to continue connecting (yes/no)?
то посылал бы команду 'yes' и т.д.!
Вариант для распечатки
Программирование под UNIX (Public)
(??) on 21-Апр-08, 14:54 
