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  打开哪个文件,遍历里面的机器

不足:成功没有提示,后续改进

你可能感兴趣的:(perl,批量,批量下发)