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/');
页:
[1]