You will need to talk to the system administrator of the remote system what method of file transfer she prefers. Most likely it will be one of SFTP, WebDAV or rsync-over-ssh. There are modules for each method on CPAN.

Hi,

Please check the node - A little demo for Net::SSH2 by Zentara. Its really very informative. I recently created a script, the basis of which was Zentara's excellent writeup.

Please note, if you are an absolute beginner to Perl, I would kindly request you to please first go through some Basic Perl stuff, also pick up some good books like "Learning Perl 6th Edition" and "Beginning Perl" by Curtis Poe. Not saying that there aren't any other good books, but I found these two books to be really awsome. These will really get you going and keep things pretty interesting.

If you have picked up the above example because you want to start learning Perl, then may I humbly suggest that you pick something a little easier and gradually move on to stuff like this.

Thanks for the kind words about my book :)

Cheers,
Ovid

Live and work anywhere in the world.

The official Perl 6 wiki.

Net::FTP is a class implementing a simple FTP client in Perl.

If you plan to do backups read up on rsync snapshots. A great example of data de-duplication.

If you plan to copy the file once, use scp or ftp/lftp.

There are modules on CPAN for all of these methods.

use Net::FTP;


    $ftp = Net::FTP->new("xxx.xx.xxx.xxx")
      or die "Cannot connect to some.host.name: $@";
      print "1111";

    $ftp->login("anonymous",'-anonymous@')
      or die "Cannot login ", $ftp->message;
      print "2222";

    $ftp->cwd("D:\folder")
      or die "Cannot change working directory ", $ftp->message;
      print "3333";
      
    $ftp->put("test.txt")
      or die "put failed ", $ftp->message;
      print "4444";
[download]

Hi,

This might sound like a stupid question, but I am hoping that before running the script you tried ftp'ing to the host and that worked right. Here's more info on a similar problem - Net::FTP cannot connect in Windows 2003. Which version of Perl are you using? On which flavour of Windows?

For a more informative error, add $^E after the $! statement in die (this is given in the node mentioned above)