Thread Reguläre Ausdrücke auf mehrzeilige Eingabe (5 answers)
Opened by michael25 at 2005-12-09 18:32

Dubu
 2005-12-10 12:41
#60842 #60842
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image
Wenn du Anfang und Ende des interessierenden Bereiches gut ueber eine Regex bestimmen kannst, dann ist das eine gute Anwendung fuer den Flip-Flop-Operator:
Code: (dl )
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
#!/usr/bin/perl
use strict;
use warnings;


while (<DATA>) {
    if (/^output\s+"/ .. /"\s*$/) {
        print;
    }
}

_ _DATA_ _
Hier ist Text vor der ersten
output-Zeile.
output "Daten 1\n
          Daten 2\n
          ..."
hier steht was anderes.
noch was mit "Anfuehrungszeichen"
123 bla blubber 789
output "Daten 1\n
          Daten 2\n
          ... noch was"
ups, hier ist
    Ende

(Bitte wie ueblich _ _DATA_ _ durch __DATA__ ersetzen.)

Heraus kommt:
Code: (dl )
1
2
3
4
5
6
output "Daten 1\n
          Daten 2\n
          ..."
output "Daten 1\n
          Daten 2\n
          ... noch was"

View full thread Reguläre Ausdrücke auf mehrzeilige Eingabe