/scripts/tests/net-ssh-perl_demo.pl

https://code.google.com/p/camelbox/ · Perl · 7 lines · 4 code · 3 blank · 0 comment · 0 complexity · 1e2e09a96ee1d8b14fb8b7ce5b6aef22 MD5 · raw file 

    

  1. use Net::SSH::Perl;

    2. 

  2. my $ssh = Net::SSH::Perl->new($host);

    3. 

  3. $ssh->login($user, $pass);

    4. 

  4. my($stdout, $stderr, $exit) = $ssh->cmd($cmd);
    5.