Hi csx,
ja so einfach ist das nicht.
if($entry{"nr"}=~/^\d$/) {
$nextnumber = $entry{"nr"}.".1";
} else {
$entry{"nr"} =~ s/^(\d+.)(\d+)$/; # Die vollen Zahlen und zehntel splitten (Würde auch mit split gehen).
$nextnumber = $2 + 1; # Die alte zehntel plus 1/10.
$entry{"nr"}=$1.$nextnumber; # Und wieder zusammensetzen
}
Nimm das Beispiel:
1|stefan|meier
2|otto|mueller
3|sabine|bauer
3.1|walter|jansen
3.2|evi|albert
4|heidi|bach
Die Anwendug soll einen neuen Unterpunkt 3 einfügen. In diesem Beispiel nach 3.2
Der neue Satz soll somit die Nummer 3.3 haben.
Ich glaub ich hab die Lösung. Suchen im Array nach gesuchter Nummer+1
Dann Zeilennummer x-1 auslesen und dann deinen Code anwenden. Das müsste gehen!
Bye,
Steve