Net:FTP Not overwrite files

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

The default behavior of put() when using net::ftp is to overwrite the remote file. I need a quick and easy way of checking to see if the same file name already exists on the remote server and skip it if it exists. I know I can get a list of the remote files and compare that against the list of files I want to upload, but I looking for something a little cleaner and simpler. Something like:

use Net::FTP;
my $ftp = Net::FTP->new("blah.com", Debug => 0);
$ftp->login('user','pass');

foreach $file (@filelist) {

$ftp-> put("$file") unless ($ftp-> fileexists($file));#fake code

}
[download]

Comment on Net:FTP Not overwrite files Download Code

Replies are listed 'Best First'.
Re: Net:FTP Not overwrite files by MidLifeXis (Monsignor) on Jul 25, 2008 at 16:35 UTC
There is a race condition with this between the time a check is done vs the time the file is written. It would be better if there is a session variable that could be set that would not allow overwrite of existing files. Update: For example: PureFTPD's -r option forces a rename on upload of existing files. wu-ftpd is either by default or by a setting not able to overwrite files. and my guess is that there are others. My only question is if any of them are user / client configurable. Now the question is, what does your ftp server support? --MidLifeXis	[reply]
Re: Net:FTP Not overwrite files by Khen1950fx (Canon) on Jul 26, 2008 at 09:18 UTC
Using an example from Network Programming with Perl - Ch.6 FTP and Telnet: `#!/usr/bin/perl use strict; use warnings; use Net::FTP::File; use constant HOST => 'ftp.perl.org'; use constant DIR => '/pub/CPAN'; use constant FILE => 'README'; my $ftp = Net::FTP->new(HOST, Debug => 1) or die "Couldn't connect: $@ +\n"; $ftp->login('anonymous'); $ftp->cwd(DIR); $ftp->put(FILE) unless $ftp->isfile(FILE); warn "File exists.\n"; $ftp->quit;` [download]	[reply] [d/l]
Re^2: Net:FTP Not overwrite files by alexm (Chaplain) on Jul 26, 2008 at 19:26 UTC
Net-FTP-File has also the `exists()` method, which would be more appropiate because if the filename exists and is actually a directory the file put through FTP would be created under that directory, which doesn't seem to be the OP's desired behaviour.	[reply] [d/l]
Net:FTP Not overwrite files by lightman (Initiate) on Jul 24, 2009 at 14:14 UTC
Hi i developed a very simples way to accomplish that it is so simple and work with the old Net::FTP `$ftp->put("$file") unless $ftp->rename("$file","$file");` [download] well gonna put file only if it doens't exits otherwise it will rename it with the same actual name! it is genious regards Claudio	[reply] [d/l]
Re: Net:FTP Not overwrite files by Sol (Initiate) on Nov 05, 2014 at 14:32 UTC
Re: Net:FTP Not overwrite files by spivey49 (Monk) on Jul 25, 2008 at 18:20 UTC
How about uploading the file to a temp name? After the temp file is done check to see if the real file is there. If it is do something with the temp file like delete it, or rename it to the real file name if it's not there. That "should" handle the race condition. Of course, on a busy server you might still run into issues there. If you're looking for a way to determine whether the file exists or not you could eval a `$ftp->get` for the file or query the output of a `$ftp->dir`.	[reply] [d/l] [select]