Prevent mv from overwriting the larger file by the same name

Question

I need to move all files from a directory, discarding the directory structure.

Unfortunately, some files have the same file name (Thumbnails). I'm looking for smth. like this:

find /tmp/dirtree -type f -exec mv -i {} . \;

How can I prevent the overwriting of larger files during the process?

Answer 1

Create the mymv.pl Perl script:

#!/usr/bin/perl
use File::Copy;
$file = shift;
($name = $file) =~ s#.*/##;
if (-f $name and -s $file < -s $name) {
     warn "$name not moved";
} else {
     move($file, $name);
}

Then, change the line to

find /tmp/dirtree -type f -exec perl mymv.pl {} \;