2010-04-14T10:29:47 renee

Code (perl): (dl )

1
2
3
4
5

        grep { 
    my @split =    split /\|/,$user{$_};
    $split[4] && defined $foo{ $split[4] };
        }
        keys %user

So mach ich es, danke Dir!
Edit: mir war nicht bewußt, dass man auch solche ganzen Ausdrücke ins grep packen kann. Dachte, da dürften nur Bedingungen rein *peinlich*