#!/usr/bin/perl

use strict;
use warnings;
$| = 1;

use File::Find;
use File::Spec;
use DBI;
use DBD::CSV;
use Text::CSV;


# Verzeichnis von Kommandozeile holen
my $verzeichnis = shift(@ARGV) || 'C:\Users\Ordner'; 

# Array für die gefundenen Dateien
my @dateien; 

my $id = 0;
my $parent;
my %ids;

sub wanted { 
  if ( $_ ne '..' ) {
        $ids{ $File::Find::name } = $id;
        $parent = $File::Find::dir;
        push @dateien,{ 
                id => $id++, 
                fullname => $File::Find::name, 
                name => $_, 
                size => (stat($File::Find::name))[7], 
                parent => $parent, 
                parentid => $ids{ $parent },
                stat => [ (stat($File::Find::name))[8,9,10] ]
        };
  }
}