闲时无聊，自己写的查找相同文件的脚本

kzled

1. use strict;
   
2. use warnings;
   
3. use Cwd;
   
4. use File::Basename;
   
5. use Digest::MD5;
   
6. 
   
7. my $path = shift || getcwd();
   
8. 
   
9. if ( ! -d $path ){
   
10.         $0 = basename($0);
    
11.         print <<HELP;
    
12. USAGE:
    
13. \tperl $0 path
    
14. 
    
15. EXAMPLE:
    
16.         perl $0 d:\\
    
17.         perl $0 d:\\docs
    
18.        
    
19. For more please contact me by liyuncn\@yahoo.com
    
20. HELP
    
21. 
    
22.         exit;
    
23. }
    
24. 
    
25. # use to store fileNames and md5s, keys are md5s, values are filenames
    
26. my %duplicates;
    
27. 
    
28. &read($path);
    
29. &output;
    
30. 
    
31. 
    
32. sub read{
    
33.         my $dir = shift;
    
34.         my (@dirs, $size, $file);
    
35.        
    
36.         opendir (DIR, $dir) or die "Failed to open $dir: $!\n";
    
37.        
    
38.         LOOP:
    
39.         while ( $file = readdir(DIR) ){
    
40.                
    
41.                 # Skipped system files start name with ...
    
42.                 next if ($file =~ /^\./);
    
43.                
    
44.                 if ( $dir =~ m/\\$/ ){
    
45.                         $file = $dir.$file;
    
46.                 }else{
    
47.                         $file = $dir."\\".$file;
    
48.                 }
    
49.                
    
50.                 # Put dirs into an array, to recursive call read subroutine
    
51.                 if ( -d $file ){
    
52.                         push @dirs, $file;
    
53.                 }else{
    
54.                         # Got files size and put them in hash as key
    
55.                         $size = -s $file;
    
56.                        
    
57.                         # Using $size as key, if $size exisit, => next steps
    
58.                         if (exists $duplicates{$size}){
    
59.                                 my $md5;
    
60.                                 my @md5s;
    
61.                                
    
62.                                 foreach ($file, $duplicates{$size}[0]){
    
63.                                        
    
64.                                         open( FILE, $_ )  or die "Failed to open $file: $!\n";
    
65.                                         binmode(FILE);
    
66.                        
    
67.                                         # Get md5 value from files, make it keys of %duplicates
    
68.                                         $md5 = Digest::MD5->new->addfile(*FILE)->hexdigest;
    
69.                                        
    
70.                                         push @md5s, $md5;
    
71.                                         close FILE;
    
72.                                 }
    
73.                                
    
74.                                 push ( @{$duplicates{$size}}, $file ) if ( $md5s[0] eq $md5s[1]);
    
75.                                
    
76.                                 next;
    
77.                         }
    
78.                        
    
79.                         $duplicates{$size} = [$file];
    
80.                 }
    
81.         }
    
82.        
    
83.         # Close dir
    
84.         closedir DIR or die "Error happen at closing dir: $!\n";
    
85.        
    
86.         # Recursive call subroutine read
    
87.         foreach (@dirs){
    
88.                 &read($_);
    
89.         }
    
90. }
    
91. 
    
92. sub output{
    
93.         my %dups = %duplicates;
    
94.        
    
95.         foreach my $key ( keys %dups ){
    
96.                
    
97.                 # For each values array in $Dups hash, if more than 1 files, print them out
    
98.                 if ($#{$dups{$key}}> 0){
    
99.                         print "Duplicated files found:\n";
    
100.                         print "-------------------------------------------------\n";
     
101.                        
     
102.                         # Print file details..
     
103.                         foreach (@{$dups{$key}}){
     
104.                                 print $_."\n";
     
105.                         }
     
106.                         print "-------------------------------------------------\n";
     
107.                 }
     
108.         }
     
109. }
     
110. 
     
111. 
     

复制代码

nuclearxin

不错的

kzled

{:3_190:}我是想抛砖引玉的。。。

wfnh

好似好长··

kzled

长？才一百行？
----

guap514

回复 5# kzled

1. if ( $file =~ /\.doc$/ || $file =~ /\.xls$/ || $file =~ /\.txt$/ || $file =~ /\.ppt$/ || $file =~ /\.conf/){
   
2.                                  $type = "docs";
   
3.                          }

复制代码

这样写不累么   呵呵
换成  $file =~ /\.(doc|xls|txt)$/    这样
或者  放到hash里  然后 print $hash->{$exe} if(exists $hash->{$exe})
应该可以少写一些

kzled

回复 6# guap514


     嗯，谢谢，提醒，这样可以省了不少代码，写这个脚本的时候，压根没怎么看正则表达式，所以现在代码看起来相当难看。。。呵呵