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


Welcome to the Monastery
	PerlMonks

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

by coldroom (Novice)

on Feb 01, 2010 at 15:18 UTC ( [id://820764]=note: print w/replies, xml )

Need Help??

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

Hello,

Thanks for your answer, but I already tryed with expect.. look at this :

SSHAuthenticationError Login timed out. The input stream currently has the contents bellow: RW@10.0.0.30's password: at /usr/local/share/perl/5.10.1/Expect.pm line 828

When I use this :

        print ("login : @switch_details[4] \n");
                print ("password : @switch_details[3]\n");

        
           my $ssh = Net::SSH::Expect->new (
            host => @switch_details[1], 
            password=> @switch_details[3], 
            user => @switch_details[4], 
            raw_pty => 1
        );
        
        my $login_output = $ssh->login();
[download]

My login & password are good..

If I try to use net::ssh::perl, there is a bug, and now, with expect, bug too.. I don't know how doing that :(

Comment on Re^2: net::ssh::perl : no way to send cmd ! Select or Download Code

Replies are listed 'Best First'.
Re^3: net::ssh::perl : no way to send cmd ! by salva (Canon) on Feb 01, 2010 at 15:54 UTC
what happens when you try to run the same command from the command line? `$ ssh -vvv user@your.switch upload cfg_toTFTP ...` [download]	[reply] [d/l]
Re^4: net::ssh::perl : no way to send cmd ! by coldroom (Novice) on Feb 02, 2010 at 07:56 UTC
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; }` [download] Thanks, I would not find it without your help. Many thanks ;)	[reply] [d/l]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://820764]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others pondering the Monastery: (6)

As of 2024-04-19 12:23 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found