#!/usr/bin/perl use File::DirWalk; use File::Basename; use Data::Dumper; use warnings; use strict; my $dw = new File::DirWalk; my %files; fileparse_set_fstype("MSWin32"); $dw->onFile( sub { my ($file) = @_; push @{$files{basename($file)}->{"Paths"}},$file; $files{basename($file)}->{"Num"} += 1; return File::DirWalk::SUCCESS; } ); my $hTrace; open $hTrace, '> Trace.txt'; select $hTrace; $dw->walk('D:/old/perl'); my @newFiles; while( my ($k, $v) = each %files) { if($v->{"Num"} > 1) { #print $k."\n"; #print Dumper($v); push @newFiles, { "Name"=>$k, "Paths"=>$v->{"Paths"}, "Num"=>$v->{"Num"} } } } #print Dumper(@newFiles); @newFiles = sort {($a->{"Num"}) <=> ($b->{"Num"})} @newFiles; print Dumper(@newFiles); close $hTrace;