perl學習之SSH相關

安裝模塊：

cpan -i Net::SSH::Perl
cpan -i Net::SCP::Expect

Net::SSH::Perl

perl代碼：

#查看192.168.1.102服務器的/tmp目錄下的文件
my $ssh = Net::SSH::Perl->new('192.168.1.102');
$ssh->login('user', 'password');
$ssh->cmd('ls -al /tmp/');

 

Net::SCP::Expect

#將test.tar.gz文件複製到192.168.1.102服務器的/tmp目錄下
my $scpe = Net::SCP::Expect->new;
$scpe->login('user', ’password‘);
$scpe->scp("/tmp/test.tar.gz", '192.168.1.102:/tmp/');