Re: recursively find duplicate filenames

[Kwan Lowe <kwan.lowe@xxxxxxxxx>]

On Wed, Jan 5, 2011 at 6:15 AM, S Mathias <smathias1972@xxxxxxxxx> wrote:
> find duplicate filenames in a folder
> find | perl -ne 's!([^/]+)$!lc $1!e; print if 1 == $seen{$_}++'
>
> find duplicate filenames in a folder recursively
> ? how?

Try this one:

perl -e 'BEGIN{$|=1;$f=$ARGV[0];$s=(stat$f)[7];$t=time}
	    while(sleep 1){printf"\r$f %s bytes at %.2f Kb/s   ",
        $_=(stat$f)[7],($_-$s)/1024/(time-$t)}'

Give it a few minutes to process if it's a large directory...
_______________________________________________
CentOS mailing list
CentOS@xxxxxxxxxx
http://lists.centos.org/mailman/listinfo/centos