Leser: 11
1 2 3
my $i; my %order = map {$_ => ++$i} qw(R A F U S W); say for sort {$order{$a} <=> $order{$b}} qw(U F S)
1 2
my %exists = map {$_ => 1} qw(U F S); say for grep {$exists{$_}} qw(R A F U S W);
2014-05-06T08:27:33 RaubtierHm, "sortieren"?
2014-05-06T09:13:02 styx-ccVllt. findest du im Zusammenhang mit dem Begriff Inklusion mehr, zumindest ist das die mir gelaeufige Bezeichnung i.d. Mathematik.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
use 5.012; sub list2order { my %index = do { my $i; map {$_ => ++$i} @_; }; sub { $index{$a} <=> $index{$b} }; } use Data::Dumper; my $order = list2order(qw(R A F U S W)); my @stuff = qw(U F S); say for sort $order @stuff;