This script gets multiple files from multiple file servers.
It requires some minor tweaks to change the script. For
example, you could change get to put or the user name from
Randal to vroom. It will take aas many servers and files as
you would like.
One of the shortcomings of the Net:FTP module is the lack of the 'multi' commands (mget, mput)
A quick addition to code can populate the @files array even given a mask.
@files = $ftp -> ls("*.tar.gz");
Gets all of the archives from the server.
What is it that you are doing with the message() statements?
Are you assigning somthing to it, or calling something from it?
On another note...
I have a script that FTP's a file to a VAN (Value-added Network).
Once the file transfer is complete an ILOG number is returned
from the VAN. This number 99.99999999% certifies that the file
was received correctly.
Currently, in order to capture that number, I need to turn
the debug on Net::FTP to 1 and redirect STDERR to a file. my $ftpSession = Net::FTP-> new("$host", Debug => 1);open (STDERR, ">>/detaillogfile.log");
$ftp->message() grabs the last line STDOUT, but not the previous lines, nor STDERR...
I'm trying to do the same thing...debug a troublesome FTP connection, and I'd like everything Debug -> 1 can give me.
any way to redirect STDOUT and STDERR to a hash?
(or a pair of them?)