String splitten

[Jörg Wittemeier]

Hallo Marko !

Versuch mal das:

#hier wird " DM" incl. Leerzeichen entfernt
$string=~s/ DM//g;
#hier wird die letzte Stelle mit einem Leerzeichen ermittelt
$anfang_betrag=rindex($string," ")+1;
#hier wird aus $string der Betrag gezogen
$betrag=substr($string,$anfang_betrag);
#hier wird der Rest ermittelt
$string=~s/ $betrag//g;
#hier wird wieder DM an den Betrag angefügt
$betrag="$betrag"." DM";

print "Content-type: text/html\n\n";
print "$string<br>\n";
print "$betrag\n";

gruß
jörg