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

您可能感興趣的文章:

相關(guān)文章

perl處理xml的模塊介紹
perl處理xml的模塊介紹，需要的朋友可以參考下
2013-02-02
強大的Perl正則表達式實例詳解
正則表達式是Perl語言的特色，基本的語法不是很難，但是編寫一個符合需求、高效的正則表達式，還是有一些挑戰(zhàn)的。下面這篇文章主要給大家介紹了關(guān)于強大的Perl正則表達式的相關(guān)資料，需要的朋友可以參考借鑒，下面來一起看看吧。
2017-11-11
使用Perl生成隨機密碼
本文給大家分享的是使用perl生成隨機密碼的方法示例，而且可以通過參數(shù)來控制密碼中包含的字符種類，非常的不錯，有需要的小伙伴可以參考下
2016-06-06
perl pop push shift unshift實例介紹
perl的pop跟push操作數(shù)組的最右邊，shift跟unshift操作數(shù)組的最左邊
2013-02-02
Perl集群配置管理系統(tǒng)Rex簡明手冊
這篇文章主要介紹了Perl集群配置管理系統(tǒng)Rex簡明手冊,自動化運維的一個管理工具,需要的朋友可以參考下
2014-06-06
perl文件操作的一些例子分享
有關(guān)perl文件操作的一些例子，供大家學(xué)習(xí)參考
2013-02-02
perl文件讀取的幾種處理方式小結(jié)
perl打開文件后，可以有幾種方式對文件進行讀取處理(根據(jù)文件大小，文件內(nèi)容的特征和其它要處理的方式)
2013-02-02
Perl中chomp和chop的區(qū)別介紹
chomp是用來刪除換行符,chop是用來刪除最后一個字符
2013-02-02
perl ping檢測功能腳本代碼
領(lǐng)導(dǎo)有任務(wù),給一批IP列表,ping每一臺機器,如果沒有響應(yīng)就發(fā)郵件通知,通知的郵件需要分開,不能通知一個列表,得一封一封的通知
2013-02-02
Perl中處理時間的幾個函數(shù)
本文為大家介紹Perl中處理時間的幾個函數(shù)，供大家學(xué)習(xí)參考
2013-02-02