Thread String, character, suche und ersetzen (26 answers)
Opened by Graf Herschel at 2018-12-11 10:42

Gast Graf Herschl
 2018-12-12 14:46
#189388 #189388
>> Schade, dass Du nicht zeigst, was Du nun konkret nutzt.

Erklärung:
Zu Lesen sind Maschinenfiles, ca. 70mB jedes, Zeilenlänge max.2048 characters + ca.25% Bytes (UTF-8,Sonderzeichen).
Gesuchte Resultate sind immer im letzten Viertel.

Code: (dl )
1
2
3
	$str =~ /([^CBf\s)])*$/;	# match hinten (sind in Wirklichkeit mehr Zeichen)
$pos=$-[0] - 1; # ist -1 wenn kein match, ansonsten $str[$pos]
$csp=substr($`,-1,1); # welches Zeichen gefunden wurde


Wenn $pos gültig und $csp ausgewertet ist, verwende ich Muffi's
substr($str,$pos,1) = $je_nachdem;

Einen Loop mit substr() durch $str gibt es nicht, rindex() je match auch nicht, auch kein @array.

Es ist sehr performant und ich bin zufrieden.
Eine kleine Unschönheit ist vorhanden.
Wenn bei
$str =~ /([^CBf\s)])*$/;
der gesuchte an letzter Stelle steht, findet er ihn nicht.
Hier habe ich nur Glück, weil jede Zeile mit '\n* abschließt.

Das war's,
Wünsche einen schönen Tag
Graf Herschl
Last edited: 2018-12-12 15:09:50 +0100 (CET)

View full thread String, character, suche und ersetzen