Quote

17.06.2004

Q: Eine Zeichenkette nach zwei Zeichen (Zeichen gruppieren) zu spliten - wie geht das?

$var = "1234567890";
@var = split /??Ausdruck??/, $var;

Das Ergebnis sollte sein:

@var = (12,34,56,78,90);

A:
$var =~ s/(\d\d)(?=\d)(?!\d*\,)/$1,/g;
@var = split(',', $var);


Vielen Dank f�r diesen Code an Helmut, er ist oft im SELFForum (http://forum.de.selfhtml.org/) zu finden.

Hier ist noch ein interessanter Code, von Helmut (aus dem SELFForum):

Q: Wie kann ich Tausender Trennpunkte vor einem Komma einsetzen?

A:
$var = "123457890765498543298,3322";

$text = reverse $var;
$text =~ s/(\d\d\d)(?=\d)(?!\d*\,)/$1./g;
print scalar reverse $text;
# Ausgabe: 123.457.890.765.498.543.298,3322