Ошибка SSH в коде Perl

Question

Привет. Может кто-нибудь сказать мне, что это за ошибка, которую я получаю из команды ssh, когда использую ее в коде perl. У меня есть разрешения на удаленной и локальной машине

Code

$site = "/tmp/write.lock";
 my $ssh = Net::SSH::Perl->new($hostname, protocol => '1,2', debug => 1, interactive => 1);
  $ssh_release->login($username, $password);
  ($stdout,$stderr,$exit) = $ssh_release->cmd("$site");
  if(defined $stdout)
  {
      //Do something
  }

Output

Localhost>  ./sh.pl
The authenticity of host 'iind-login.iind.intel.com' can't be established.
Key fingerprint is 3e:88:aa:70:cb:e5:4a:d7:a4:f5:8b:8b:d5:b3:2c:6e.
Are you sure you want to continue connecting (yes/no)? [yes] yes
mkdir /nfs/site/home/msveetil/.ssh: Permission denied at /usr/intel/pkgs/perl/5.8.5/lib/site_perl/5.8.5/Net/SSH/Perl/Util/Hosts.pm line 5

Answer 1

Лучше подключиться к хосту с помощью ssh из командной строки и посмотреть, появляется ли эта ошибка. Также в ssh в первый раз появляется запрос отпечатка пальца, и когда вы нажимаете yes, он больше не приходит. Если вы снова получаете сообщение об ошибке, это означает, что у папки .ssh нет разрешений.