Transmisión de archivo Excel con Net::FTP
Publicado: 2016-07-26 10:27 @477
Hola, estimados. Tengo el siguiente script que envía a un FTP un archivo Excel, pero por alguna razón que desconozco el archivo Excel llega dañado, si bien llega con el peso correcto, al tratar de abrirlo dice que está dañado. Desde ya, muchas gracias por su ayuda.
#!/usr/bin/perl
use Net::FTP;
use Net::FTP::File;
my $ftp_site = '200.1.1.1';
my $port = '21';
my $ftp_dir = 'nuevo';
my $ftp_user = 'usuario';
my $ftp_password = 'password';
my $dir;
my $file;
my $dirOUT;
my $ftp = Net::FTP->new($ftp_site, Debug => 1, Port => $port, Passive => 0, Binary => 1)
or die "Cannot connect to host $@";
$ftp->binary();
$ftp->login($ftp_user, $ftp_password);
$ftp->cwd($ftp_dir);
$dir="/home/desarrollo/REPORTES/EXCEL/";
$dirOUT="/home/desarrollo/REPORTES/EXCEL/OUT";
opendir(DIR, $dir);
foreach $file (readdir(DIR))
{
if(($file ne ".") && ($file ne "..") && ($file ne "OUT"))
{
$ftp->put("$dir/$file",$file);
print "Transfer file: $file\n";
}
}
$ftp->quit();
#!/usr/bin/perl
use Net::FTP;
use Net::FTP::File;
my $ftp_site = '200.1.1.1';
my $port = '21';
my $ftp_dir = 'nuevo';
my $ftp_user = 'usuario';
my $ftp_password = 'password';
my $dir;
my $file;
my $dirOUT;
my $ftp = Net::FTP->new($ftp_site, Debug => 1, Port => $port, Passive => 0, Binary => 1)
or die "Cannot connect to host $@";
$ftp->binary();
$ftp->login($ftp_user, $ftp_password);
$ftp->cwd($ftp_dir);
$dir="/home/desarrollo/REPORTES/EXCEL/";
$dirOUT="/home/desarrollo/REPORTES/EXCEL/OUT";
opendir(DIR, $dir);
foreach $file (readdir(DIR))
{
if(($file ne ".") && ($file ne "..") && ($file ne "OUT"))
{
$ftp->put("$dir/$file",$file);
print "Transfer file: $file\n";
}
}
$ftp->quit();