#!/usr/bin/env perl

use strict;
use warnings;
use 5.016;
use Carp qw(cluck carp croak);
use JSON qw( encode_json );
use File::Find;
use Data::Dumper;

my %seen;
my @files;

find ({ wanted => \&wanted }, '/mnt/lustre');

say Dumper(\@files);


sub wanted {
  if($File::Find::name =~ /\.nt$|^dbQuads$|^graph.info$|^string_table_chars.index$|^string_table_chars$/ && !exists $seen{$File::Find::dir}) {
    my $user = (getpwuid ((stat $File::Find::dir)[4]))[0];
    my $name = $1 if $File::Find::dir =~ /\/([^\/]+)$/;

    #=+ Would like to know how big the directory contents are
    my $raw_size = 0;
    my $db_size = 0;
    my $built = 0;
    find(sub {
      if(-f $_ && $_ =~ /\.nt$/) {
        $raw_size += -s $_;
      }
      elsif(-f $_ && $_ =~ /^dbQuads$|^string_table_chars.index$|^string_table_chars$/) {
        $db_size += -s $_;
        $built = 1;
      }
    },$File::Find::dir);

    my %temp = (
      owner    => $user,
      raw_size => $raw_size,
      db_size  => $db_size,
      name     => $name,
      path     => $File::Find::dir,
      built    => $built
    );
    push @files, \%temp;
    $seen{$File::Find::dir} = 1;
  }

}