Sektionen aus einer Textdatei auslesen

[Christian Kruse]

Hoi,

Kann ich nicht mit einem RegExp die Zeichenkette zwischen
zwei Sektionen ausschneiden, und dann mit $. die Zeilen zählen
lassen ?

Nein. Wohl aber kannst du mit einem RegEx herausfinden, ob die neue
Sektion angefangen hat, z. B. so:

my $lines   = 0;
my $section = '';
my %section_lines = ();
while(<DAT>) {
  if(/^\s*[(\w+)]/) {
    $section_lines{$section} = $lines if $section;
    $section = $1;
    $lines   = 0;
  }
  else {
    $lines++ if $section;
  }
}

Gruesse,
 CK