can't read file send trough NET::FTP put

[jcor]

Hi, My goal is to put a file in a server trough ftp.
I'm using module Net::Ftp.
My code is simple (maybe too simple :-) )

#!/usr/bin/perl
 
use Net::FTP;
 
my $ftp_host = 'ftp.tvnet.com.pt';
my $ftp_user = 'estreias';
my $ftp_pwd  = 'cinema';
 
my $ftp = Net::FTP->new($ftp_host, Debug => 0)
      or die "Cannot connect to $ftp_host: $@";
 
# login::password
$ftp->login($ftp_user,$ftp_pwd)
      or die "Cannot login ", $ftp->message;
 
# file to transfer
$ftp->put("/home/joao/Desktop/output.3gp")
      or die "get failed ", $ftp->message;
 
 $ftp->quit;

This seems to work correctly and the file gets to the server.
The problems is that I can't open the file. I get errors like the file is corrupted or something like that for every file I try to send. I already tested video files (its what I need to send), but also text files and it doesn't work either.
If I put the same file in the ftp server with Filezilla, for example, it works fine.

Can someone give me some light here, please?

Thanks a lot,

João

[numberwhun]

Hi, My goal is to put a file in a server trough ftp.
I'm using module Net::Ftp.
My code is simple (maybe too simple :-) )

#!/usr/bin/perl
 
use Net::FTP;
 
my $ftp_host = 'ftp.tvnet.com.pt';
my $ftp_user = 'estreias';
my $ftp_pwd  = 'cinema';
 
my $ftp = Net::FTP->new($ftp_host, Debug => 0)
      or die "Cannot connect to $ftp_host: $@";
 
# login::password
$ftp->login($ftp_user,$ftp_pwd)
      or die "Cannot login ", $ftp->message;
 
# file to transfer
$ftp->put("/home/joao/Desktop/output.3gp")
      or die "get failed ", $ftp->message;
 
 $ftp->quit;

This seems to work correctly and the file gets to the server.
The problems is that I can't open the file. I get errors like the file is corrupted or something like that for every file I try to send. I already tested video files (its what I need to send), but also text files and it doesn't work either.
If I put the same file in the ftp server with Filezilla, for example, it works fine.

Can someone give me some light here, please?

Thanks a lot,

João

I would check as to whether or not this is doing a binary send or not. If it is not, change it to do so.

Regards,

Jeff

[jcor]

Your suggest was correct, I only add this line - $ftp -> binary; - to my code and it started working.

Thanks a lot again