Thread Numiersche Sortierfunktion (12 answers)
Opened by Gast at 2012-11-29 07:47

Linuxer
 2012-11-29 17:41
#163750 #163750
User since
2006-01-27
3870 articles
HausmeisterIn

user image
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!

View full thread Numiersche Sortierfunktion