#!/usr/bin/perl -w
use strict;
use Expect;
 
my $sftpUsername = "username";
my $sftpPassword = "password";
my $sftpServer = "server1";
my $fileToFetch = "bigip.conf";
my $path = "/config";
my $timeout = 10;
#my $i1 = "server1";
#my $i2 = "server2";
#my $i3 = "server3";
#my $i4 = "server4";

my $command = 'sftp';
my $params = ("$sftpUsername\@$sftpServer:$path/$fileToFetch $sftpServer\_$fileToFetch");
 

my $exp = Expect->spawn($command, $params) or die "Cannot spawn sftp command \n";
 

$exp->expect($timeout,
        ["Password Authentication"],
        ["Are you sure you want to continue connecting", sub {my $self = shift; $self->send("yes\n");}]
        );

$exp->expect($timeout, ["Password:"]);
 

$exp->send("$sftpPassword\n");
 

$exp->expect($timeout, ["sftp>"]);

$exp->send("get $fileToFetch\n");
 

$exp->expect($timeout, ["sftp>"]);
 

$exp->send("bye\n");
 

$exp->soft_close();

my @sftpServer = ("server1", "server2", "server3");

for (my $i=0; $i<3; $i++) {
    print "Conexión con $sftpServer[$i]\n";
}

my $params = ("$sftpUsername\@$sftpServer");

my $params = ("$sftpUsername\@$sftpServer[$i]");

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

my $sftpUsername = 'milko';
my @sftpServer  = qw(host1 host2 host3);

for (my $i = 0; $i < @sftpServer; $i++ ) {
    my $params;

    $params = ("$sftpUsername\@$sftpServer[$i]");
    print "$params\n";

    $params =  "$sftpUsername\@$sftpServer[$i]";
    print "$params\n";
}

__END__

use strict;
use warnings;

use Net::SFTP::Foreign;

my $user = 'username';
my $passwd =  'password';
my $filename = 'bigip.c';
my $timeout = 10;
my @hosts = qw(host1 host2 host3);

for my $host (@hosts) {
  my $sftp = Net::SFTP::Foreign->new($host,
                                     user => $user, passwd => $passwd,
                                     timeout => $timeout);
  if ($sftp->error) {
    warn "unable to connect to remote host $host: " . $sftp->error;
    next;
  }
  $sftp->get($filename, "$filename-$host")
    or warn "file transter from $host failed: " . $sftp->error;
}