Re^4: net::ssh::perl : no way to send cmd !

[coldroom]

in reply to Re^3: net::ssh::perl : no way to send cmd !
in thread net::ssh::perl : no way to send cmd !

Hello, I finally found a way :)

sub Recup_dlink_DGS {
        my $ssh = Net::SSH::Expect->new (
        host     => @switch_details[1],
        user     => @switch_details[4],
        password => @switch_details[3],
        raw_pty  => 1,
        timeout  => 5);
        
        eval {
        my $login_output = $ssh->login();
        if ($login_output !~ /Welcome/) {
            die "=> Echec à l'identification \n=> $login_output";
        }
}
        
$ssh->exec("upload cfg_toTFTP $serveur_tftp @switch_details[2]");
        &controle_cfg;
        return 1;
}

Thanks, I would not find it without your help. Many thanks ;)