Tcl8.5 Listen: numerische Werte extrahieren und sortieren

set liste {a b c 10 3 45 d e 4 6 hallo 5}

set liste [lsort -decreasing $liste]

hallo e d c b a 6 5 45 4 3 10

set idx [lsearch -regexp $liste {[0-9]+}]

set num_liste [lrange $liste $idx end]

6 5 45 4 3 10

lsort -integer -increasing $num_liste

3 4 5 6 10 45

set liste [lsort -decreasing $liste]
#
# Weiß man, dass die Liste immer mindestens einen numerischen Wert enthält,
# so kann man ohne catch auskommen
#
lsort -integer -increasing [lrange $liste [lsearch -regexp $liste {[0-9]+}] end]

#
# Falls man aber davon ausgehen muss, dass es keinen einzigen numerischen Wert in
# der Liste geben könnte, so kann man dies mittels catch abfangen
#
if { [catch {lsort -integer -increasing [lrange $liste [lsearch -regexp $liste
             {[0-9]+}] end]} result] } {
      puts "Kein numerischer Wert enhalten :: $result"
} else {
      puts "Ergebnis: $result
}