#! /usr/bin/perl


#------------------------------------------------------------------------
#Einlesen der Section_Data in das Perl-Skript zur "Weiterverarbeitung"
#------------------------------------------------------------------------

@allSec = ("");		        #Def eines array, in das die Daten aller sections zeilenweise geschrieben werden
                   

#Öffnen der Datei, Schreiben der Daten in das array @allSec

open(SECDATA, "</home/../sectionInfo.dat") || die "Datei nicht gefunden\n"; 
while(<SECDATA>)
 {
  push(@allSec,$_);			#Feldelemente $_ in array "@allsec" schreiben  
 }					
close(SECDATA);

#------------------------------------------------------------------------
#Schreiben der Daten der n Sektionen in n arrayas @secData_$i
#------------------------------------------------------------------------
while(my $zeile=<@allSec>)
{

  $i=1;

   if($zeile=~ m/^datei1\.dat/ .. $zeile=~ m/^datei1\.dat/g)
   {
 
	push(@{$secData_[$i]},$_);
	
	$i++;
	
   }
   
}

#------------------------------------------------------------------------
#Ausgabe der Daten der n Sektionen
#------------------------------------------------------------------------

	for($j=1; $j<=$i; $j++)
	
	{
	print "Daten der Sektion $j \n";
	print @{$secData_[$j]};
	
	}