客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
续上一篇，利用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; |
请发表评论