perl_Net::SCP::Expect实现批量分发文件

今天要在大量机器同一目录分发同一个文件，下面是脚本：

已经打通ssh通道(不打通也可以，因为我是使用指定用户执行的，不然老提示yes/no)

#!/usr/bin/perl

use strict;
use Getopt::Std;
use Net::SCP::Expect;

use vars qw($opt_f $opt_l $opt_t $opt_h);
getopts('f:l:t:h');
get_args();
my ($filename,$catalog,$type,$help);
open (HD,"$type") || die "Cannot find file:$!n";
my @jd=<HD>;
close (HD);
my $jd;
foreach $jd(@jd) {
chomp ($jd);
#get_args();

my? $scpe = Net::SCP::Expect->new(host=>$filename,user=>"usr",password=>'user_password',auto_yes=>1,timeout=>20);
??? ?$scpe->scp("$filename","$jd:$catalog");
sub get_args{
??? $filename = $opt_f if $opt_f;
??? $catalog = $opt_l if $opt_l;
??? $type = $opt_t if $opt_t;
??? &Usage() if (!defined($filename) || !defined($catalog));
??? }

sub Usage {
??? print << "END";
??? ./allscp.pl -f <filename> -l <catalog> -t <Ip_Type>-h <help>
END
??? exit 2;
}
}
##################################END##########################################

-f? filename 就是指定要下发哪个文件；

-l? catelog? 就是指定下发到机器上的哪个目录

-t? 打开哪个文件，遍历里面的机器

不足：成功没有提示，后续改进