Operationen auf Arrays -Frage-: Fragen zu shift und co. - #76346 (Allgemeines zu Perl)

Strat

2007-05-02 11:48

User since
2003-08-04
5246 Artikel
ModeratorIn

also alles, was in @satz nur einmal vorkommt, nach @ungleich, und alles, was oefter vorkommt, nach @gleich? dann koennte das folgende funktionieren:

Code: (dl )

# zaehlen, wie oft jedes Element vorkommt
my %cache;
$cache{ $_ } ++ foreach @satz; 

my( @gleich, @ungleich );

foreach ( keys %cache ) {
    $cache{$_} > 1
        ? push( @gleich, $_ )
        : push( @ungleich, $_ );
} # foreach

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/