Thread Ein Array nach einem anderen Array sortieren (11 answers)
Opened by hugenyn at 2011-08-27 21:36

topeg
 2011-08-29 00:47
#151899 #151899
User since
2006-07-10
2611 Artikel
BenutzerIn

user image
Wo ich jetzt gerade nochmal auf den Code schaue, sticht mir ins Auge, dass man den Index-Zähler ($fpos) man auch weglassen kann:

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
23
24
25
26
27
28
29
30

#! /usr/bin/perl
use strict;
use warnings;

my @order = qw(
               29 20 31  5 18 36 17  3 16  9 27 32
               25 35 11 10 23  4 26 12 24 30  6 15
               13  2 21 19 14 33 22  7 34  8  1 28
);

my @items = qw(
    7 12M 3 4 17CG 25 33
);

my %items_hash;
for my $key (@items)
{
  ( my $copy = $key ) =~ tr/0-9//cd;
  $items_hash{$copy}=$key;
}

my @folge;
my $elm;
for ( @order )
{
  $elm=delete($items_hash{$_});
  push(@folge,$elm) if(defined($elm));
}

print "@folge\n";

Wie konnte ich das übersehen.

View full thread Ein Array nach einem anderen Array sortieren