#!/usr/bin/perl

use strict;
use warnings;

$| = 1;

use File::Find;
use File::Spec;

# Verzeichnis von Kommandozeile holen
my $verzeichnis = shift(@ARGV) || '.'; 

# 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 => $_, 
		parent => $parent, 
		parentid => $ids{ $parent },
		stat => [ (stat($File::Find::name))[8,9,10] ]
	};
  }
}
# Suche nach Dateien starten
find(\&wanted, File::Spec->rel2abs($verzeichnis) ); 

for my $datei (@dateien) {
  print 
	"ID:",$datei->{id},
	"\tPARENT:",$datei->{parent},
	"\tPARENTID:",$datei->{parentid},
	"\tNAME:",$datei->{name},  
	"\tFULLNAME:",$datei->{fullname},  
	"\tSTAT:",join " ",@{$datei->{stat}},  
	"\n";
}