Leser: 21
1 2 3 4 5
while (my $line = <$fh>) { if ($line =~ m/^Part1:/ .. $line =~ m/^Part2:/) { push @array, $line; } }
1
2
3
4
# von Zeile "PartX:..." bis Leerzeile lesen
if ( $line =~ m/^Part\d+:/ .. $line =~ m/^$/ ) {
# tu was mit Zeilen
}
1
2
3
4
5
6
{
local $/ = "";
while ( my $block = <$fh> ) {
# tu was mit $block ($block ist nun beispielsweise "PartX:bla\nbli\nblubb\n\n";
}
}