使用perl实现scp批量分发

OGeek|极客世界-中国程序员成长平台 › 门户 › 编程› Perl›Perl教程

原作者: [db:作者] 来自: [db:来源] 收藏邀请

perl模块Net::SCP::Expect批量下发文件

用Net::SSH::Perl和Net::SCP::Expect写部署脚本

#!/usr/bin/perl

use Net::SCP::Expect;

my $pc_ip="192.168.233.135";
my $pc_passwd="test";
my $pc_user="test";
my $pc_ssh_port="22";

eval{
        my $scpe = Net::SCP::Expect->new(host=>$pc_ip,user=>$pc_user,password=>$pc_passwd,port =>$pc_ssh_port,auto_yes=>1);
        #$scpe->scp("$pc_ip:/home/autotest/log/$log_file","$ENV{WORKSPACE}/MPLS_Test_Result.html");
        $scpe->scp("/home/huanghongbo/testlogs/test.log","$pc_ip:/home/huanghongbo/testlogs/");

};

复制整个目录

在Net-Scp-Except中的readme中有此一句

recursive - Set to 1 if you want to recursively copy entire directories.

#!/usr/bin/perl

use Net::SCP::Expect;

my $pc_ip="192.168.233.135";
my $pc_passwd="test";
my $pc_user="test";
my $pc_ssh_port="22";


eval{
        my $scpe = Net::SCP::Expect->new(host=>$pc_ip,user=>$pc_user,password=>$pc_passwd,port =>$pc_ssh_port,auto_yes=>1,recursive=>1);
        #$scpe->scp("$pc_ip:/home/autotest/log/$log_file","$ENV{WORKSPACE}/MPLS_Test_Result.html");
        $scpe->scp("/home/huanghongbo/class/","$pc_ip:/home/huanghongbo/class/");
        
};