Pattern matching: zahlen aus einem String herauslesen - #79452 (Allgemeines zu Perl)

2004-01-23 17:54

User since
2003-08-04
247 Artikel
BenutzerIn
[default_avatar]

Hm, du hast scheinbar noch ein Verständnis-Problem bezüglich der Suchen-und-Ersetzen-Funktion mit regulären Ausdrücken (s///). Das zwischen den beiden ersten Schrägstrichen is der reguläre Ausdruck, mit dem der Ausdruck "gematched" werden soll, das hast du richtig gemacht, aber das zwischen den anderen ist das, mit dem das Gefundene dann ersetzt werden soll. In denem Fall soll nicht's ersetzt werden, sondern etwas gefunden werden, d.h. du brauchst kein s///, sondern ein m//, oder schlichtweg ein //.

Das Ganze konkret an deinem Beispiel:

Code (perl): (dl )

my @errlist = (...);
my @difflist;
my $diff = 23;
my $match;
do {
  my $line = pop @errlist || last;
  $match = ($line =~ /^-- (\d+)/);
  unshift @difflist, $line;
} until $match == $diff;

Und noch a bisserl was formelles: ;)
1. Bitte einrücken!
2. Bitte mit [ code ] [ /code ] oder [ perl ] [ /perl ] (jeweils ohne Leerzeichen) Perl-Code als solchen markieren...\n\n