Perl Regexp

[Lutz Donnerhacke]

* Nils Juenemann wrote:
>Das mache ich mit: ($a, $b) = split /./, $string;
>
>Soweit so gut. Nur jetzt ist der Fall aufgetreten
>das ich mehrere Punkte in dem String habe.
>Also test.bla.fasel. In $a soll dann "test.bla" und 
>in $b "fasel" stehen. 

Mit split kannst Du ($a, $b) = split(/\./, $string, 2) sagen. Allerdings
trennt das am ersten Punkt.

Mit ($a, $b) = ($1, $2) if /^(.*)\.([^.]*)$/ kannst Du den letzten Punkt
nehmen.

Noch effizienter ist aber rindex und substr.