Detalhe no script

removido
(usa Nenhuma)

Enviado em 04/10/2017 - 16:43h

Olá estou usando o script abaixo para fazer backup de alguns firewalls
mas o problema é que se acontece algum problema (host fora do ar) o script para.

Gostaria que ele continuasse a ser executado mesmo se tiver erro em algum dos hosts

Alguém pode ajudar?

#!/usr/bin/perl -w

use warnings;
#use strict;
use Net::SCP::Expect;

my $date = `date +%Y%m%d`;
chomp($date);
mkdir ("/home/fortigate/".$date);

@firewallips = ('x.x.x.x',
'x.x.x.x',
'y.y.y.y',
'y.y.y.y',
);

foreach $ip (@firewallips) {
print "$ip\n";

my $scpe = Net::SCP::Expect->new(auto_yes=>1,port=>22);
$scpe->login('user', 'passwd');
$scpe->scp("$ip:sys_config","/home/fortigate/autus/" . $date . "/fortigate-$ip\.conf");
}