Danke murphy, das wollte ich hören :)

Hab auch noch weiter dran gearbeitet (brauche nämlich tatsächlich nur den davor und den dahinter, es geschah in Königswinter :)) ) und konnte so den ganzen sort{} Teil sparen. Jetzt sieht es ganz schnuckelig aus:

foreach my $temp (grep {/^VERTRAG(\d+)$/ && ($1 == $gesucht-1 || $1 == $gesucht+1)} keys %hash) {
...
}

Edit: Und die rechte Klammer im grep{} hab ich ersetzt durch abs $1-$gesucht == 1
Jetzt siehts ganz gut aus :)
Hoffentlich ist es auch noch genau so richtig:


Last edited: 2010-01-17 13:54:01 +0100 (CET)