Präfixe aus Liste herausarbeiten - #155876 (Allgemeines zu Perl)

FIFO

2012-02-05 08:12

User since
2005-06-01
469 Artikel
BenutzerIn

user image

Guest Philipp
Allerdings sollte das Skript mind. 5mal über den Array laufen, sodass auch kürzere Prefixe erkannt werden.

Das kann man iterativ oder per Rekursion lösen, eine Variante mit temporärem Array ginge so (ungetestet):

Code (perl): (dl )

use warnings;
use strict;

my @data = qw(
    # ...
);
my @new;
my @data_tmp = @data;

while (1) {
    my %test;
    @new = ();

    for my $item (@data_tmp) {
        next if $item !~ /^\d{2,}$/;
        my $suffix = chop($item);
        $test{$item}{$suffix}++;
    }

    for my $base (keys %test) {
        if (scalar(keys %{$test{$base}}) == 10) {
            push @new, $base;
        }
        else {
            push @new, $base.$_ for keys %{$test{$base}};
        }
    }
    last if $#new == $#data_tmp;
    @data_tmp = @new;
}

print "$_\n" for sort @new;

Allerdings wird die array-Kopie jedesmal neu erzeugt, was bei richtig großen arrays ineffizient ist.
Du musst auch folgendes bedenken: Nimm die Reihe

Code: (dl )

Die wird dann auf ein Element (12) reduziert. Willst Du das?

Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"