schneller Abgleich vieler Zeilen - #52169 (Allgemeines zu Perl)

Dubu

2005-02-28 19:15

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

[quote=renee,28.02.2005, 12:15]Weg 1:

Code: (dl )

1
2

my @array = grep{my $i = $_; !grep{$_ eq $i}@monthly_temp}@temp;
push(@monthly_temp,@array);

Weg 2:

Code: (dl )

my %hash;
@hash{@monthly_temp} = 1;
for(@temp){
   push(@monthly_temp,$_) unless(exists $hash{$_});
}

[/quote]
Pah, das geht kuerzer. (Edit: Okay, natuerlich nur, wenn die Reihenfolge im Array nicht wichtig ist, ich geb's zu ...) ;)

Weg 3:

Code: (dl )

1
2
3

my %hash;
@hash{@monthly_temp, @temp} = 1;
@monthly_temp = keys %hash;

\n\n