my %doc_type_header;
&Doc_type_header(\%doc_type_header);
# hier soll ausgabe hin!!!!!!!!!!!!!!!!!!!
# erzeuge Hash in denen für jede Dokuart die header in der richtigen Reihenfolge stehen
# $doc_type_header[$dokuart]=@headerarray
sub Doc_type_header{
open(DATEI, "<./Konfigurationsdaten/20060310.DOCFIELD") || die "Datei nicht gefunden";
my @Zeilen = <DATEI>;
close(DATEI);
my $doc_type_header = shift;
my $dokuart;
my $zahl2;
my $old_doc;
my @headerarr;
#Gehe Zeilen der Docfielddatei durch
foreach (@Zeilen){
if (/([\w\$]+)\;(\d+)\;(\d+)\;/){
$dokuart = $1;
$zahl2 = $3;
if(!defined $old_doc){
$old_doc = $dokuart;
}
#wenn dokuart nicht mehr die gleiche wie im letzten durchlauf der froeach-
#schleife speichere eine kopie des hashs in hash2 mit key alte dokuart und
#leere danach wieder den hash um ihn für die nächste dokuart neu füllen zu können.
if($dokuart ne $old_doc){
$doc_type_header->{$old_doc}= \@headerarr;
@headerarr =();
}
#gehe Zeilen der Repository durch und speichere zahl und header in hash
open(DATEI, "<./Konfigurationsdaten/20060310.REPOSITORY") || die "Datei nicht gefunden";
my @Zeilen2 = <DATEI>;
close(DATEI);
foreach(@Zeilen2){
if(/^$zahl2;([^;]+);([^;]+)/){
push(@headerarr,$2);
}
}
}
$old_doc = $dokuart;
}