Opened by Gast at 2008-06-03 18:50
Ich habe den Fehler gefunden:
Er liegt in dieser Zeile vond er funktion "sort_keys"
richtig sollte es heißen:
Die Funktion ist Geschwindigkeitsoptimiert. Deine vorgeschlagenen Herangehensweise ist um vieles langsamer.
Noch etwas schneller wäre übrigens diese Variante:
Er liegt in dieser Zeile vond er funktion "sort_keys"
Code (perl): (dl
)
$sdate = "$tmp[-2]$tmp[-1]$tmp[0]";
richtig sollte es heißen:
Code (perl): (dl
)
$sdate = "$tmp[2]$tmp[1]$tmp[0]";
Die Funktion ist Geschwindigkeitsoptimiert. Deine vorgeschlagenen Herangehensweise ist um vieles langsamer.
Noch etwas schneller wäre übrigens diese Variante:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
sub sort_keys {
my %sort;
my $i = 0;
my $d;
foreach (@_) {
$i++;
$d=$DATA{$_}{von};
$sort{substr($d,6,4).substr($d,3,2).substr($d,0,2).$i} = $_;
}
return @sort{sort keys %sort};
}