perl模块Net::SCP::Expect批量下发文件
scp分发文件的perl脚本
#!/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/"); };
转载于:https://www.cnblogs.com/huanghongbo/p/6218978.html
相关资源:垃圾分类数据集及代码