Artikel im Internet unter http://www.hidemail.de/blog/kuriose-regulaere-ausdruecke.shtml.
Freitag, 16.2.2007, 10:09:57 Uhr

Kuriose Reguläre Ausdrücke


Hier will ich in loser Reihenfolge die seltsamsten von gefundenen Regulären Ausdrücke vorstellen.

Split mit RegEx

$t="wert1 wert2";
($a,$b)=$t=~ /(.*) (.*)/;
print "a: $a, b: $b";



Ausgabe:
a: wert1, b: wert2
Es wird also ein ($a,$b)=split(/ /,$t); durchgeführt. Wie man sieht gehts auch mit RegEx, Split ist aber wesentlich schneller und vor allem einfacher!

Zeitvergleich Split mit RegEx:
5.000.000 split dauerte auf meinem Rechner ca. 6 Sekunden.
5.000.000 RegEx dauerte auf meinem Rechner ca. 12 Sekunden.
Split ist also doppelt so schnell!




Alle e in Zeile kennzeichnen, nummerieren und zählen
Ein schönes Beispiel für RexEx mit ausführbaren Code

$cou=0;
$t="wert wert wert wert wert wert";
$t=~ s/(e)/"-".$1.$cou++."-"/ge;
print "$t enthält $cou e";



Ausgabe:
w-e0-rt w-e1-rt w-e2-rt ... enthält 6 e

Übrigens:
Wenn nur eine Zählung ohne Kennzeichnung erwünscht ist, tuts ein
$anzahl=$t=~ s/e/\1/g;
auch..., oder noch schneller und ressourcenfreundlicher (danke für den Tipp), ein
$anzahl=$t=~ tr/e//;
Hinweis dazu: Wenn man nur einzelne Zeichen ersetzen will, sollte man das ~ tr/ immer dem ~ s/ vorziehen, da es eben den Rechner bzw. Server schont.

Was übrigens NICHT funkioniert, ich hab das mal eben noch ausprobiert, ist ein
$anzahl=$t=~ /e/g;



Link in Domain und Verzeichnis teilen

$t='http://www.meine-domain.de/verzeichnis/datei.htm';
$t=~ /(.*\/\/.*?)\/(.*)$/g;
$domain=$1;
$pfad=$2;
print "Domain $domain, Pfad $pfad";



Ausgabe:
Domain: http://www.meine-domain.de, Verzeichnis verzeichnis/datei.htm




Artikel im Internet unter http://www.hidemail.de/blog/kuriose-regulaere-ausdruecke.shtml.