Leser: 28
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
foreach (@data) #Durchlaufen des arrays @data { for($i=1; $i<=3; $i++) { my $j=$i+1; if (m/Sec\_$i/ .. m/Sec\_$j/) { push(my @dat_($i), $_); # ohne die Laufvariable $i gibt es hier keine Probleme #pop(@dat_($i)); # Löschen des letzten array elements } } } print @dat_($i);
1 2 3 4 5 6
my @dat_; foreach (@data) { if (m/Sec\_$i/ .. m/Sec\_$j/) { push @dat_, $_; } }
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
use strict; use warnings; use Data::Dumper; my @data = ...; my @sections; for (@data) { for my $i (1 .. 3) { my $j = $i+1; if (m/Sec_$i/ .. m/Sec_$j/) { # füge zeile in das array von $sections[$i-1] ein push @{ $sections[$i-1] }, $_; } } } print Dumper \@sections;
if (m/Sec\_$i/ .. m/Sec\_$j/)