nicht angemeldet
Moin Moin!
Ansonsten bleibt Dir eigentlich nur noch grep:
perl -e '$x{$_}=$_ for 1..10; delete @x{grep { $_ < 6 } keys %x}; print join "," => keys %x'
Juhu, das geht, danke Dir Alexander!
Viele Grüße,
Hotti
--
Mist, zu früh um ins Bett zu gehen, zu spät um noch was Neues anzufangen.
Mist, zu früh um ins Bett zu gehen, zu spät um noch was Neues anzufangen.