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

Strat

2005-06-23 17:22

User since
2003-08-04
5246 Artikel
ModeratorIn

den groessten Wert eines hashes bekommst du schneller heraus mit

Code: (dl )

1
2

use List::Util qw(max);
my $max = max(values %hash);

da du nur den groessten Wert brauchst und keine sortierte Liste, ist die sortierung unnoetig.

um zu ueberpruefen, ob ein hashschluessel existiert, ist

Code: (dl )

unless (exists $hash{$_}) {

meistens besser, weil da gar nicht auf den wert zugegriffen werden braucht.

Aber das ist alles nur Kleinkram; eine signifikaten leistungssteigerung bekommst du wohl nur durch einen besseren algorithmus und/oder besser angepasste datenstrukturen.

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/