Opened by norman at 2005-06-23 14:37
User since
2003-08-14
2022 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-14
2022 Artikel
BenutzerIn
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my %lut = map { "produkt".$_ , $_ } (1..50000);
my @daten = qw(produkt3 produkt21 produkt93 produkt50000);
print Dumper [map {$lut{$_}} @daten];
Die meiste Zeit vergeht beim 'bauen' des Hashs:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
$ time perl lookup_ids.pl
$VAR1 = [
3,
21,
93,
50000
];
real 0m0.693s
user 0m0.553s
sys 0m0.061s
eine reduzierung auf 40000 Paare im hash ändert kaum etwas:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
$ time perl lookup_ids.pl
$VAR1 = [
3,
21,
93,
40000
];
real 0m0.579s
user 0m0.451s
sys 0m0.051s
Wieviel Zeit nimmt dein Code denn in Anspruch? Wie befüllst du den Hash? Aus Textdatei, Datenbank? Das sind häufiger die Flaschenhälse.