Thread Operationen auf Arrays -Frage-: Fragen zu shift und co. (16 answers)
Opened by sKy at 2007-05-01 22:55

Ronnie
 2007-05-02 23:27
#76354 #76354
User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my @folks = qw(Hans Maria Jochen Hans Maria Johann Hans Rainer);
my %seen;

for (0 .. $#folks) {
$seen{$folks[$_]}->{cnt}++;
push @{$seen{$folks[$_]}->{position}}, $_;
}

print Dumper \%seen;

my @unique = map { { $_ => $seen{$_} } } grep { $seen{$_}->{cnt} == 1 } keys %seen;
my @often = map { { $_ => $seen{$_} } } grep { $seen{$_}->{cnt} > 1 } keys %seen;

print Dumper \@unique, \@often;

View full thread Operationen auf Arrays -Frage-: Fragen zu shift und co.