#!/usr/bin/perl use strict; use warnings; use Net::SSH::Perl; my $host = 'localhost'; my $pass = 'yourpassword'; my $user = 'yourusername'; my $cmd = 'pwd'; my $ssh = Net::SSH::Perl->new($host, protocol => '1,2', debug => 1); $ssh->login($user, $pass); my($stdout, $stderr, $exit) = $ssh->cmd($cmd); print $stdout, "\n";
In reply to Re: SSH Permission Denied
by Khen1950fx
in thread SSH Permission Denied
by NolanPL
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |