使用perl實現scp批量分發

標籤：html   use   val   pre   www   pac   work   password   res   

perl模組Net::SCP::Expect批量下發檔案

用Net::SSH::Perl和Net::SCP::Expect寫部署指令碼

scp分發檔案的perl指令碼 

Perl SCP操作

 

#!/usr/bin/perluse 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/");};

 

使用perl實現scp批量分發