Leser: 23
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sek_1
datei_1.dat
value.......
.......
datei_2.dat
value.......
.......
datei_3.dat
value.......
.......
Sek_2
datei_1.dat
value.......
.......
datei_2.dat
value.......
.......
datei_3.dat
value.......
.......
Sek_n
....
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
while(my $zeile=<@allSec>) { $i=1; if($zeile=~ m/^datei1\.dat/ .. $zeile=~ m/^datei3\.dat/g) { push(@($secData_[$i]),$_); $i++; } } #------------------------------------------------------------------------ #Ausgabe der Daten der n Sektionen (als Test) #------------------------------------------------------------------------ for($j=1; $j<=$i; $j++) { print "Daten der Sektion $j \n"; print @($secData_[$i]); }