Thread Ein Problem mit der Extraktion von Textausschnitte: Perl->Manipulation von Texten (6 answers)
Opened by sKy at 2006-12-05 17:44

nepos
 2006-12-05 17:52
#72253 #72253
User since
2005-08-17
1420 Artikel
BenutzerIn
[Homepage] [default_avatar]
Ungetester Code-Schnipsel:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
my $arrayIndex = 0;
my $blocks;

open(IN,'<',$inputFile)
  or die "Fehler beim Oeffnen von $inputFile: $!\n";

while ( my $line = <IN>) {
  chomp($line);

  # Neuer Block? Dann Index hochzaehlen
  if ($line =~ /^#/) {
    $arrayIndex++;
  }
  else {
    push(@{$blocks->[$arrayIndex]}, $line);
  }
}

close(IN);
...


Damit hast du dann einen Array, der pro Block wieder einen Array mit den Dateinnamen enthaelt.

View full thread Ein Problem mit der Extraktion von Textausschnitte: Perl->Manipulation von Texten