Thread Match Pattern über mehrere Zeilen (3 answers)
Opened by bora99 at 2020-11-13 23:11

bora99
 2020-11-15 23:29
#192975 #192975
User since
2009-12-05
54 Artikel
BenutzerIn
[default_avatar]
Danke für die Flip-Flop Operatior Hinweis

Für das gewünschte Ergebnis mit Suche in einer Datei mit Zeilen mit 1. "(" und 1. ")" :

( START
zeile2
zeile3
) ENDE

habe die die 1. Variante wie folgt erweitert :

Code (perl): (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
26
#!/usr/bin/perl -w
use 5.020;
use strict;
use warnings;

my $TestFile = "testfile";

open (my $tfh,'<',$TestFile)
    or die "Test File '$TestFile' kann nicht gelesen werden: '$!' !\n";

my @found_arr = (); # nicht %found_arr - das wäre ein Hash

while (my $line = <$tfh>) {
    chomp $line;
    # push @found_arr, $line if ($line =~ /\(/ .. $line =~ /\)/);
    if ( $line =~ /\(/ .. $line =~ /\)/)
    {
       push @found_arr, $line;
       last if ( $line =~ /\)/ );
    }
}

# In Perl kann man eine Schleife über ein Array sehr einfach schreiben:
for my $found (@found_arr) {
    say $found;
}


die 2. Variante mit "grep" ist dann nicht möglich ?

Beste Grüsse

View full thread Match Pattern über mehrere Zeilen