Leser: 18
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Headertext1
Headertext2
===== Wichtiger Teil 1 =====
Hier stehen
dann die Daten
die ich brauche.
===== Wichtiger Teil 2 =====
Hier stehen
dann andere Daten
die ich vielleicht
später brauche.
===== Ende =====
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
#!/usr/bin/perl use strict; use warnings; use Data::Dumper; my @parts; my $index = 0; open my $fh, '<', 'test.txt' or die $!; while ( my $line = <$fh> ) { if ( $line =~ /Wichtiger Teil\s+(\d+)/ ) { $index = $1; } if ( $line =~ /^ =+ \s Wichtiger \s+ Teil/x .. $line =~ /^=+ \s+ Ende \s+ =+/x ) { $parts[$index] .= $line; } } close $fh; warn Dumper \@parts;