bin/image-db-analysis-02.pl

#!/usr/bin/perl

# sort by directory size

use v5.12;
use warnings;
use File::Basename;
use Text::CSV;

my $csv = Text::CSV->new( { binary => 1 } )
  or die "Cannot use CSV: " . Text::CSV->error_diag();

$csv->column_names(qw( fullpath filename mtime size digest ));

my $database = "fileinfo.db";

open my $FH, q{<:encoding(utf8)}, $database or die "$database: $!";

say "connected to database '$database' successfully";

my %dir_info;

while ( my $hr = $csv->getline_hr($FH) ) {
    $dir_info{ dirname( $hr->{fullpath} ) }->{SIZE} += $hr->{size};
    $dir_info{ dirname( $hr->{fullpath} ) }->{COUNT}++;
}

foreach
  my $tmp_dir ( sort { $dir_info{$b}->{SIZE} <=> $dir_info{$a}->{SIZE} }
    keys %dir_info )
{
    say " $dir_info{$tmp_dir}->{SIZE} $tmp_dir ( $dir_info{$tmp_dir}->{COUNT})";
}

__END__