#!/usr/bin/perl

use lib qw(C:/Beispieldaten/);
use strict;
use document;
use material;

open(DATEI, "<P007201031.JPL") || die "Datei nicht gefunden";
my @Zeilen = <DATEI>;
close(DATEI);

my $Anzahlspalten = 0;
my $dokuart;
my %hash;
my @array;
my $ele;
my $test;
my $name;
my @child;
my @parent;

push(@child,5);

#Codezeugs das nichts mit child und parent zu tun hat

$test = document->new();
$test->spalteninfo(\@array);
$test->name(\$name);
&hierarchie(\@child,\@parent);
$test->child(\@child);
$test->parent(\@parent);
#  foreach my $ele (@child){
#    print "$ele\n";
#  }