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

作者: 爱吃h泡菜o221呃呃答天我
来源: 51数据库
2020-08-08

使有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; 