Opened by Gast at 2004-03-11 17:03
User since
2003-08-04
12208 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
12208 Artikel
Admin1
[quote=Ronnie,11.03.2004, 17:24]
@renee: Wieso eigentlich der hash?[/quote]
ist dir mal in den sinn gekommen, dass der hash genau dazu da ist,
dieses überflüssige grep einzusparen?
push @results, $array[$id] unless exists $hash{$id};
nebenbei bemerkt ist ein test auf m/$id/ nicht ausreichend. es muss
am anfang und ende verankert werden, denn z.B. $id=2 passt auch auf 12
oder auf 23 etc.
Code: (dl
)
push @results, $array[$id] unless (scalar grep(/$id/, keys %hash));
@renee: Wieso eigentlich der hash?[/quote]
ist dir mal in den sinn gekommen, dass der hash genau dazu da ist,
dieses überflüssige grep einzusparen?
push @results, $array[$id] unless exists $hash{$id};
nebenbei bemerkt ist ein test auf m/$id/ nicht ausreichend. es muss
am anfang und ende verankert werden, denn z.B. $id=2 passt auch auf 12
oder auf 23 etc.
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
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem