使用perl清理電腦上重復(fù)文件實(shí)現(xiàn)代碼(續(xù))
更新時(shí)間：2013年02月02日 10:47:38 作者：
使有perl搜索電腦上的重復(fù)文件并刪除，需要的朋友可以參考下
復(fù)制代碼 代碼如下:
#!/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膠水實(shí)現(xiàn)前后臺(tái)對(duì)接的方法
Perl膠水實(shí)現(xiàn)前后臺(tái)對(duì)接的方法，有需要的朋友可以參考下2013-02-02
使用perl的Tie::File?模塊刪除文件固定行,?這里的處理主要利用了perl的Tie::File?模塊把數(shù)組和文件綁定,然后就可以使用perl的splice函數(shù)操作數(shù)組,從而達(dá)到操作文件的目的,對(duì)perl刪除文件固定行感興趣的朋友跟隨小編一起看看吧2023-12-12
perl AnyEvent簡(jiǎn)單介紹和入門(mén)知識(shí)
這篇文章主要介紹了perl AnyEvent簡(jiǎn)單介紹和入門(mén)知識(shí),AnyEvent 是一個(gè)性能非常好的基于事件驅(qū)動(dòng)的框架,需要的朋友可以參考下2014-09-09
our 和 my 一樣，都是對(duì)變量的聲明，不過(guò) our 聲明的是包全局變量，而 my 聲明的是詞法變量2013-02-02
這篇文章主要介紹了perl與shell獲取昨天、明天或多天前的日期的代碼,需要的朋友可以參考下2014-04-04
Perl 語(yǔ)言中包含了許多特殊變量,這些變量在 Perl 程序的執(zhí)行過(guò)程中扮演著重要的角色,這篇文章主要介紹了Perl 特殊變量,需要的朋友可以參考下2025-01-01
有關(guān)perl中的$a和$b，這兩個(gè)變量是為sort函數(shù)準(zhǔn)備的內(nèi)置變量，所以聲明時(shí)可以不加 my2013-02-02
Perl圖形化包管理工具PPM學(xué)習(xí)使用筆記
這篇文章主要介紹了Perl圖形化包管理工具PPM學(xué)習(xí)使用筆記,本文詳細(xì)講解了什么是PPM、PPM界面的功能按鈕說(shuō)明、PPM如何安裝卸載包等內(nèi)容,需要的朋友可以參考下2015-06-06
在成塊打印文本的時(shí)候特別有用，需要的朋友可以參考下2013-02-02
Perl集群配置管理系統(tǒng)Rex簡(jiǎn)明手冊(cè)
這篇文章主要介紹了Perl集群配置管理系統(tǒng)Rex簡(jiǎn)明手冊(cè),自動(dòng)化運(yùn)維的一個(gè)管理工具,需要的朋友可以參考下2014-06-06