Code optimieren (Laufzeit/Geschwindigkeit) (gelöst) - #155702 (Allgemeines zu Perl)

2012-01-26 14:57

User since
2003-08-04
12208 Artikel
Admin1

ich hab mir jetzt die einzelnen schleifen nicht genz genau angeschaut. du möchtest einfach wissen, welche elemente mehrfach vorkommen und sie ausgeben? da empfiehlt sich ein hash mit einem zähler:

Code (perl): (dl )

my %seen;
for my $item (@array1[1..$#array1], @array2[1..$#array2], ...) {
    $seen{$item}++;
    if ($seen{$item} > 1) {
        print "Element $item mehrfach: $seen{$item}\n";
    }
}

Editiert von pq: typo, prüfung auf > 1
Last edited: 2012-01-26 15:08:16 +0100 (CET)

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: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem