sub av_ssh { $av_obj_SSH->trace(-1); $av_obj_SSH->debug(1); $av_obj_SSH->connect($av_loc_ROUTER) or $av_obj_SSH->die_with_error; $av_tmp_STRING = $av_obj_SSH->check_hostkey('ask') or $av_obj_SSH->die_with_error; $av_obj_SSH->auth_publickey("newroot","$ENV{HOME}/.ssh/t_zertifikat_t_test_openssh.pub","$ENV{HOME}/.ssh/t_zertifikat_t_test_openssh.key") or $av_obj_SSH->die_with_error; $av_obj_SSH->disconnect(); } $av_obj_SSH = Net::SSH2->new() or die "SSH-Objekt konnte nicht erzeugt werden"; av_ssh(); exit (0); #### la .ssh/ insgesamt 72 drwxrwxr-x 2 fxuser2 fxuser2 4096 Dez 12 15:45 . drwxr-xr-x 14 fxuser2 fxuser2 4096 Dez 12 15:45 .. -rw------- 1 fxuser2 fxuser2 381 Aug 31 2021 authorized_keys -rw------- 1 fxuser2 fxuser2 3434 Aug 31 2021 id_rsa -rw-r--r-- 1 fxuser2 fxuser2 742 Aug 31 2021 id_rsa.pub -rw------- 1 fxuser2 fxuser2 182 Dez 12 15:46 known_hosts -rw------- 1 fxuser2 fxuser2 1834 Dez 12 12:59 t_zertifikat_t_test_openssh.key -rw------- 1 fxuser2 fxuser2 406 Dez 12 12:53 t_zertifikat_t_test_openssh.pub