2010-04-14T10:51:04 bianca

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!

1
2
3
4
5

        grep { 
    my $field =    split /\|/,$user{$_};
    $field && defined $foo{ $field };
        }
        keys %user

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem