mehr speicher für perl - #47098 (Installation und Konfiguration)

norman

2005-06-23 18:12

User since
2004-03-11
46 Artikel
BenutzerIn
[default_avatar]

problem gefunden!

das ist wesentlich langsamer bei großen hashes:

Code: (dl )

1
2

my @key = sort { $contentsRef->{$a} <=> $contentsRef->{$b} } keys %{$contentsRef};
my $max = $contentsRef->{$key[-1]};

als

Code: (dl )

1
2

use List::Util qw(max);
my $max = max(values %{$contentsRef});

vielen dank für eure tipps!\n\n