Help for this page

Select Code to Download


  1. or download this
    #! perl -w
use strict;
...
    (my $fn = $File::Find::name) =~ tr#/#\\#;
    -f && push @{ $files{ (stat(_))[7] } }, $fn;
}
  2. or download this
    17:56 >perl 1201_SoPW.pl .
Searching for duplicate files in .
...
182 bytes in duplicated files

17:56 >