31 lines
540 B
Perl
Executable File
31 lines
540 B
Perl
Executable File
#!/usr/bin/perl
|
|
use warnings;
|
|
use strict;
|
|
|
|
use File::Find;
|
|
|
|
my %seen;
|
|
my %hist;
|
|
|
|
sub collect {
|
|
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
|
|
$atime,$mtime,$ctime,$blksize,$blocks) = lstat($_);
|
|
return if $seen{"$dev:$ino"};
|
|
$hist{$size}++;
|
|
$seen{"$dev:$ino"} = 1;
|
|
}
|
|
|
|
find(\&collect, @ARGV ? @ARGV : ("."));
|
|
|
|
my $total_count;
|
|
for my $c (values %hist) {
|
|
$total_count += $c;
|
|
}
|
|
|
|
my $ac = 0;
|
|
for my $s (sort {$a <=> $b } keys %hist) {
|
|
$ac += $hist{$s};
|
|
printf "%g %g %6.2f\n", $s, $ac, 100 * $ac/$total_count;
|
|
}
|
|
|