UPDATE: I recommend you go with the examples noted above, rather than on the code below, which is untested. In paticular, I'm unable to test the assertion that rput works on *NIX in the manner I mention below.
If you look at the docs for Net::FTP::Recursive, they do a pretty good job of explaining things from a Perl perspective. Here's an example of how the code might go, based on the docs for the module in question:
# WARNING: Untested code! use strict; use warnings; use Net::FTP::Recursive; my $ftp = Net::FTP::Recursive->new("some.host.name", Debug => 0); $ftp->login("anonymous",'firstname.lastname@example.org'); #Change the directory in the below command # to the root of the directories you wish # to upload to $ftp->cwd('/pub'); # You must have your script in the proper # local directory; this module automatically # uploads it's working directory chdir('/home/user/data_to_upload'); # According to docs, rput should "just work" # on Unix-like systems $ftp->rput(); $ftp->quit();
Unless I'm missing something? I hope that works for you; I don't have an FTP site here I can test with.
----Asim, known to some as Woodrow.
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>