2010-08-22T16:58:48 MatthiasW

Guest Jeff

Ich habe nun das Modul ein bisschen ausprobiert und eine Frage:
Warum funktionieren die Funktionen nicht, wenn vor dem zu ignorierendem Teil etwas davor ist?

Das klappt nicht, weil du explizit angibst, dass die Zeichenkette ('...') am Anfang des Textes stehen muss.

So sollte es klappen: (Ich habe die Doku nur kurz überflogen, es geht daher womöglich eleganter)

Code (perl): (dl )

1
2
3

my $text = "123 '456' 789";
my( undef, $post, $pre ) = extract_delimited( $text, qr/'/, qr/[^']*/ );
$text = ($pre || '') . $post;

Ansonsten könntest du dir meinen Alternativvorschlag mit regulären Ausdrücken ansehen. (Werde es gleich noch aktualisieren, da mir ähnliche Fehler passiert sind, wie dir ;-)

In deinem Skript scheinst du dir doppelte Arbeit zu machen - die Datei wird 2x analysiert - und außerdem übersieht es einige Fehler: } { kommt durch, weil die Anzahl an öffnenden gleich der Anzahl an schließenden geschweiften Klammern ist.

Darüber hinaus sieht es recht umständlich und aufgebläht aus. Die aktuelle Zeilennummer der zuletzt benutzten Datei findest du bspw. in $.. (perlvar)

MfG