Using perl Syntax Highlighting
#!/usr/bin/perl
use Net::FTP;
use strict;
no warnings;
use constant {
USUARIO => "user",
PASSW => "pass",
SERVIDOR => "ip_ftp_server",
};
my ($dia,$mes,$anno) = (localtime)[3,4,5]; $anno+= 1900; $mes++;
my $fichero = "BACKUPS_$anno-$mes-$dia.tar.gz";
system("tar czvf $fichero /root/LOGS/");
my $ftp= Net::FTP->new(SERVIDOR) or die "No se pudo conectar: $!\n";
$ftp->login(USUARIO, PASSW) or die "Login incorrecto: $!\n";
$ftp->put($fichero) or die "No se pudo hacer upload del archivo: $!\n";
$ftp->quit();
use Net::FTP;
use strict;
no warnings;
use constant {
USUARIO => "user",
PASSW => "pass",
SERVIDOR => "ip_ftp_server",
};
my ($dia,$mes,$anno) = (localtime)[3,4,5]; $anno+= 1900; $mes++;
my $fichero = "BACKUPS_$anno-$mes-$dia.tar.gz";
system("tar czvf $fichero /root/LOGS/");
my $ftp= Net::FTP->new(SERVIDOR) or die "No se pudo conectar: $!\n";
$ftp->login(USUARIO, PASSW) or die "Login incorrecto: $!\n";
$ftp->put($fichero) or die "No se pudo hacer upload del archivo: $!\n";
$ftp->quit();
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
,
. Intenté reinstarlo ... pero tengo problemas para subir los archivos con el comando put. Aclaro que estuvo funcionando perfectamente el script y luego que actualicé la versión de PERL a la 5.8.8 detecté este problema.
