Regulärer Ausdruck

[Patrick Andrieu]

Hallo Gerd!

1. Wie erhalte ich dann in diesem Falle die Strings vor und nach dem gefundenen Muster?

Es gibt die vordefinierten Variablen Prematch und Postmatch (Link hast Du in  Deinem Posting zu $#name erhalten). Die zu nutzen ist aber eine erhebliche Geschwindigkeitsbremse.

2. Statt $feld = /(?<!X)X{$times}(?=[^X])/;

hier fehlt die Tilde (~) nach dem =

kann man offensichtlich schreiben:
     my $pat = qr/(?<!X)X{$times}(?=[^X])/;

qr steht für quoted RegExp. Es erlaubt Dir, ein Suchmuster vorher zu definieren mit dem Vorteil, dass es bereits kompiliert wird.

qr~s gibt es nicht.

BTW: Du solltest Dir die Bücher »Einführung in Perl« und »Programmieren mit Perl« wirklich zulegen. Wenn ich sie selbst nicht immer wieder bräuchte, würde ich sie Dir schicken ;) - Die sind zwar teuer, aber vielleicht kannst Du sie Dir zum Geburtstag schenken lassen, oder zu Weihnahchten, oder machst Überstunden und kaufst sie Dir ;)

Viele Grüße aus Frankfurt/Main,
Patrick