Dear fellows, I use the Net::FTP module to retrieve files from a mainframe machine. Since the provider changed, timeouts occur during communications, here during an getfile via FTP. The code is nothing special, straight from the pod:

use Net::FTP;
...
$ftp->get("that.file");
...
[download]

I get the following message when I turn FTP debug on:

Net::FTP=GLOB(0x??????)>>> PORT xxx,xxx,xxx,xxx,198
Net::FTP=GLOB(0x??????)<<< Port request OK.
Net::FTP=GLOB(0x??????)>>> RETR FFFFF.XXX
Net::FTP=GLOB(0x??????)<<< 125 Sending data set xxx.xxx.xxx
Timeout at ... Net/FTP.pm line 471
Net::FTP=GLOB(0x??????)>>> QUIT
Net::FTP=GLOB(0x??????)<<< 250 Transfer completed successfully
[download]

How do I handle the Timeout error?

Net::FTP seems to have no code to deal with it. I had a short look at the underlying modules Net::Cmd, IO::Socket etc, but could not even find, where the Timeout method is generated.

As there is conversion between the mainframe and the windows client it is not easy to check filesizes to decide, wether the download retrieved the complete or just part of the file.

Any hints, links, tips or help? I use ActiveState Perl 5.6.1 on a W2K machine.

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <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>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.