Thread Numiersche Sortierfunktion
(12 answers)
Opened by Gast at 2012-11-29 07:47
eine Variante in Perl:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 #! /usr/bin/perl use strict; use warnings; my %words = qw( als 5 wie 3 Von 3 zu 5 von 10 ); my %by_number; while ( my ($k,$v) = each %words ) { push @{ $by_number{$v} }, $k; } require Data::Dumper; print Data::Dumper->new( [ \%by_number ], [ qw( *by_number ) ] )->Sortkeys(1)->Dump(); meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen! |