Thread [PROBLEM] --> vergleich von 2 Dateien mit PERL
(7 answers)
Opened by Gast at 2004-03-11 17:03
[quote=Ronnie,11.03.2004, 17:24]
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: ![]() ![]() |