in reply to Reaped: problem with telnet and ftp

Side note: I had a hard time trying to read your post. Consider formatting it in a more readable fashion, e.g. using <OL> tags et similia.

Whatever, I had some problems transferring certain files from one system to another with a few modules I tried, then I switched to Net::SFTP and it went like a charme. I don't know if this could help you.

Also, I've heard good cmts about Expect.

Replies are listed 'Best First'.
Re^2: problem with telnet and ftp
by Anonymous Monk on Jun 24, 2005 at 06:50 UTC
    I am actually trying to FTP a tar.gz file to linux from windows using perl module NET::FTP. Here is my code and the output 
    my $ftpBox = Net::FTP->new($host) || 
  die "failed to connect to $host $!";
$ftpBox->login($user_name, $password) || 
  die "failed to log onto $host $!";
$tar = "run.tar.gz";
$ftpBox->type("binary")
$ftpBox->type(byte);
$ftpBox->put($tar, "run.tar.gz") || 
   die "Failed to put \"$tar\" to destination_dir";
#sleep (10);

    [download]
    The output is 
    Expected
-rw-r--r--   1 user user  271317 Jun 24 11:02 run.tar.gz

Obtained after the ftp 
-rw-r--r--  1 user user 272232 Jun 24 12:15 run.tar.gz

    [download]
    So if you see the file size above ther are approximately 1k bytes added to the file when transferred through the NET::FTP module. Can anyone please explain why is this happening and a work around for this.

    Regards, Sid

    Formatting fixed by holli

[reply]
[d/l]
[select]
      Please use code tags. I'm not even reading your post, and I bet many other monks won't as well.
[reply]

In Section Seekers of Perl Wisdom