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


您可能感兴趣的文章:

• perl去除重复内容的脚本代码(重复行+数组重复字段)
• fdupe 查找重复文件的Perl脚本代码

本文由 华域联盟 原创撰写：华域联盟 » 使用perl清理电脑上重复文件实现代码(续)

转载请保留出处和原文链接：https://www.cnhackhy.com/76612.htm