Perl Performance Probleme

Perl Performance Probleme (11 Beiträge, 186 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

Hi!

Wir stellen in der Arbeit unsere Fileserver um und ich habe dafür einige Scripts entwickelt. Leider hat sich eines davon als ziemliches Bottleneck herausgestellt.

Ich habe eine Funktion getPathByHash der ich eine Referenz auf einen Hash, eine ID (Nummer der Datei) und eine Zählvariable (um die Zugriffe auf die Shares gleichmäßig zu verteilen).

Der Hash enthält als Key Werte von 0 bis ca 7000 und als Value jeweils eine Referenz auf ein Array, welches jeweils Pfade auf Netzwerkfreigaben enthält, auf welcher sich die Datei befindet. Das heißt, Datei Nummer 1234 liegt in allen Shares, welche als Value für den Key 1234 im Hash eingetragen ist.

Mein Skript retuniert nun einen Pfad auf einen Netzwerkshare der die Datei enthält. Ich gehe dabei folgendermaßen vor:

sub getPathByHash($$$){
my ($hashref,$id,$countdone) = @_;
my %hash = %{$hashref}; <-- SEEEEEEEHR langsam

my @shares = @{$hash{id}};
my $nr_shares = @shares;
return $shares[$countdone % $nr_shares]."\\".$id;
}

Der markierte Call in dem die Hash Referenz in einen Hash umgewandelt wird ist der, der das Bottleneck verursacht.

Wie kann ich diesen Call vermeiden, und mir von der Referenz auf den Hash gleich das Array herausholen, bzw. wie kann man in einem Schritt, ohne die Referenzen umzuwandeln, den Pfad retunieren?

Besten Dank!

Picasa Webalbum

Re: Perl Performance Probleme (japh am 11.06.2008, 14:59:18)

Re(2): Perl Performance Probleme (Norret am 11.06.2008, 17:20:51)

Re(3): Perl Performance Probleme (japh am 11.06.2008, 17:28:32)

Re(4): Perl Performance Probleme (Norret am 11.06.2008, 18:48:55)

Re(5): Perl Performance Probleme (japh am 11.06.2008, 22:59:35)

Re(6): Perl Performance Probleme (Norret am 12.06.2008, 13:14:37)

Re(7): Perl Performance Probleme (japh am 12.06.2008, 14:48:52)

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung