find file

#!/usr/bin/perl
 
# Written by Limeng
# May 27,2010 Changsha
 
use strict;
use File::Basename;
use warnings;

my $error_file = "error.txt";
my $clone_report_file = "clone_report.txt";
 
my @error;
my @path_list;
if ($ARGV[0] =~ /^(-h|-\?|\/\?|-help)$/i or !@ARGV) {
        print "\n Usage: find_clone [path1] [path2] [path3] ... \n\n Press Enter to close me ... \7";
         <STDIN>;
         exit;
}
else {
        foreach (@ARGV) {
                 s/\\/\//g;
                 chop if (/.*\/$/);
                 if (! -d $_) {
                          print " The path ($_) does not exist! Please check!\n\7";
                          push (@error,"The path ($_) does not exist! Please check!");
                  }
                  else { push(@path_list,$_); }
        }
        if (!@path_list) {
                 print "\n The path(s) you input are invalid,try again please!\n\n Press Enter to close me ... \7";
                 <STDIN>;
                 exit;
        }
}
 
$| = 1;
print "\n Scanning the path(s) ... ";
my @file_list;
foreach (@path_list) { readsub($_); }
print "Done!\n\n Analyzing ... \n\n";

my %files;

foreach my $path (@file_list) {
    my ($name,$dir) = fileparse($path);
    push @{$files{$name}},$path;
}

foreach my $file (keys %files) {
    if (@{$files{$file}} > 1) {
        print "@{$files{$file}}\n";
    }
}

 

#my @progress = ('-','-','\\','|','/','/'); #my $s = 0; #open FH,">$clone_report_file"; #foreach (keys %clone) { #        if (@{$clone{$_}} > 1) { #                 foreach(@{$clone{$_}}) { #                         my @stat = stat($_); #                         print FH time_transfer($stat[9]),"\t$_\n"; #                 } #                 print FH "\n"; #                 $clone++; #         } #} #if ($clone) { print qq~\n\n $clone group(s) clone files found,details see "$clone_report_file"!\n~; } #else { #        print qq~\n\n No clone files found!\n~; #        print FH qq~No clone files found!~; #} #close FH;   if (@error) {         open FH,">$error_file";         foreach (@error) { print FH "$_\n"; }          close FH;          print "\n ",$#error+1," error(s) ocurred,details please see \"$error_file\"!"; } else { print qq~\n No error ocurred!~; }   print "\n"; sub readsub {         my $file_t = shift;         if (-f $file_t)         {                 push(@file_list,$file_t);         }         if (-d $file_t) {                 opendir(AA,$file_t);                 my @list = readdir(AA);                 close (AA);                 my $file_to_act;                 foreach $file_to_act (sort @list)                 {                         if ($file_to_act =~ /^\.|\.$/) { next; }                         else                         {                                 readsub("$file_t/$file_to_act");                         }                 }         } }