How do I preserve file times when using Net::FTP?

javze has asked for the wisdom of the Perl Monks concerning the following question:

I'm using Net::FTP to download some files and I would like to preserve the times of the files I get from there. Ideas?

Originally posted as a Categorized Question.

Comment on How do I preserve file times when using Net::FTP?

Replies are listed 'Best First'.
Re: How do I change the modification time of a file? by merlyn (Sage) on Feb 28, 2001 at 21:25 UTC
I believe if you wrap your request into an LWP::Simple `mirror` call instead (using an FTP URL), the mirror code correctly sets the time stamp, which means that there's some code in there somewhere to consistently understand the remote timestamp. Setting the timestamp locally is trivial: use the utime operator.	[reply]
Re: How do I change the modification time of a file? by fundflow (Chaplain) on Feb 28, 2001 at 21:51 UTC
I had similar problem and addressed it via a script: savetime / loadtime. It will be helpful for you if you download from one of your own machines. For your need, you will run it once on the FTP server to save the times and you run it localy to restore the times after the transfer.	[reply]
Re: How do I preserve file times when using Net::FTP? by Anonymous Monk on Jun 24, 2002 at 16:59 UTC
To accomplish this without using LWP you can do: $mod_time = $ftp->mdtm($remote_file); $ftp->get($remote_file,$local_file); $resp = utime($mod_time,$mod_time,$local_file); This should work on everything but FAT Win32.	[reply]

Back to Seekers of Perl Wisdom