使用perl清理电脑上重复文件实现代码(续)

#!/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;