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

Ronnie

2005-06-23 18:04

User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]

Hallo norman,

das ist sehr merkwürdig. Ich habe mal 20000 lookups probiert mit folgendem Code:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my %lut = map { "produkt".$_ , $_ } (1..50000);
my @daten = map { "produkt".int(rand(50000)) } (1..20000);
#print Dumper [map {$lut{$_}} @daten];

Ergebnis:

Code: (dl )

$ time perl lookup_ids.pl 

real    0m0.750s
user    0m0.644s
sys     0m0.061s

Mit Ausgabe dauert es natürlich deutlich länger, aber selbst dann nur knapp 3 Sekunden:

Code: (dl )

1
2
3

real    0m2.815s
user    0m1.048s
sys     0m0.211s

Und das auf einem 1.42 GHz G4. Bei 50000 lookups sind es mit Ausgabe knapp 4.5 Sekunden. Sorry ich kann dein Problem leider nicht reproduzieren.

Gruß,
Ronnie