Opened by cohama at 2012-02-28 11:24
User since
2012-05-04
1054 Artikel
BenutzerIn
2012-05-04
1054 Artikel
BenutzerIn
Wie wär's mit sowas:
(Achtung, hier muss START am Ende der Startzeile und END am Anfang der Endzeile stehen, also ggf den RE verändern)
(Achtung, hier muss START am Ende der Startzeile und END am Anfang der Endzeile stehen, also ggf den RE verändern)
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
use strict;
use warnings;
my $file = do {local $/; <DATA>};
if ($file =~ m/START\n(.*?irgendwas.*?)\nEND/s) {
print "Gefunden: Abschnitt ist:\n---\n$1\n---\n";
}
__DATA__
blubb
START
df
sgreg
irgendwas
dfg
END
sgdg