OpenForum RSS: Net::SSH::Perl

Net::SSH::Perl (dario)

Thu, 10 Jan 2013 12:54:09 GMT

>[�� ]
> use strict;
> use Net::SSH::Perl;
> my $ssh = Net::SSH::Perl ->new("192.168.10.1") || die $!;
> $ssh->login("admin","911") or warn ("not logged");
> print "$stdout\n$stderr\n$exit\n";
> print "END\n";
> ��:
> root@mail:/ # perl /usr/local/pevl
> Permission denied at /usr/local/pevl line 5
> root@mail:/ #

�� sshd_config

PasswordAuthentication yes

Net::SSH::Perl (dario)

Thu, 10 Jan 2013 08:24:00 GMT

>[�� ]
> [code]
> use Net::SSH::Perl;
> [/code]
> � ��
> [code]
> use warnings;
> use strict;
> [/code]
> �� Perl �� .
> � �� print �� . �� , �� .

��

use warnings;
use strict;
use Net::SSH::Perl;
my $ssh = Net::SSH::Perl ->new("192.168.10.1") || die $!;
$ssh->login("admin","911") or warn ("not logged");
print "$stdout\n$stderr\n$exit\n";
print "END\n";

��:

root@mail:/ # perl /usr/local/pevl
Permission denied at /usr/local/pevl line 5
root@mail:/ #

Net::SSH::Perl (ACCA)

Thu, 10 Jan 2013 01:01:55 GMT

> root@mail:/ # perl /usr/local/pevl
> Can't call method "login" on an undefined value at /usr/local/pevl line 3.

�� `;' :
[code]
use Net::SSH::Perl;
[/code]

� ��
[code]
use warnings;
use strict;
[/code]

�� Perl �� .

� �� print �� . �� , �� .

Net::SSH::Perl (dario)

Wed, 09 Jan 2013 22:05:54 GMT

> ��, �� :
> my $ssh = Net::SSH::Perl ->new("192.168.10.1") || die $!;
> �� . �� debug:
> my $ssh = Net::SSH::Perl ->new("192.168.10.1",debug=>1) || die $!;

��
root@mail:/ # perl /usr/local/pevl
Can't call method "login" on an undefined value at /usr/local/pevl line 3.
root@mail:/ #

Net::SSH::Perl (ACCA)

Wed, 09 Jan 2013 15:27:51 GMT

��, �� :
my $ssh = Net::SSH::Perl ->new("192.168.10.1") || die $!;

�� . �� debug:

my $ssh = Net::SSH::Perl ->new("192.168.10.1",debug=>1) || die $!;