Opened by Graf Herschel at 2018-12-11 10:42
>> 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.
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)
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)