#!/usr/bin/perl use strict; no warnings; use Net::SSH::Perl; use Net::SSH::Perl::Cipher; my $host = 'localhost'; my $username = 'yourusername'; my $password = 'yourpassword'; my $cmd = 'perl -V'; my $cmd2 = 'module_info -a Net::SSH::Perl'; my $cmd3 = 'perldoc Net::SSH::Perl'; my $cmd4 = 'exit'; warn "Starting SSH Services..."; my $ssh = Net::SSH::Perl->new($host, debug => 1); print "Done\n"; warn "Logging in..."; $ssh->login($username, $password); print "Done\n"; warn "Starting Command..."; my($stdout, $stderr, $exit) = $ssh->cmd($cmd); print "Done\n"; warn "Starting 2nd Command..."; my($stdout, $stderr, $exit) = $ssh->cmd($cmd2); print "Done\n"; warn "Starting 3rd Command..."; my($stdout, $stderr, $exit) = $ssh->cmd($cmd3); print "Done\n"; warn "Starting 4th Command..."; my($stdout, $stderr, $exit) = $ssh->cmd($cmd4); print "Done\n";
In reply to Re^3: Net::SSH Woes
by Khen1950fx
in thread Net::SSH Woes
by btobin0
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |