use warnings; use strict; use Net::SSH::Perl; my $host = '192.168.255.128'; my $username = 'root'; my $password = 'root'; my $ssh = Net::SSH::Perl->new($host,port=>22); $ssh->login($username, $password); my ($stdout, $stderr, $exit) = $ssh->cmd('ifconfig'); if($stderr){ print "Error:$stderr "; }else{ print $stdout; } exit $exit;
挺好用的, 用法没有太复杂