Umgang mit referenzierten Arrays: Schön schreiben No. 2 (gelöst) - #152855 (Allgemeines zu Perl)

rosti

2011-10-04 19:40

User since
2011-03-19
3502 Artikel
BenutzerIn

Arrays in einem Hash? Und das alles in einer Datei? Und frei zu vergebende IDs? Beliebige Datenstrukturen? Juhu, ich mache Dir das mal schmackhaft:

Code (perl): (dl )

my $m = myObjects->new( autostore => 1, file => '/tmp/messwerte.bin', lock => 1 );
$m->insert('2011-10-03', {ort => 'Oppenheim', temp => [12, 13, 25, 19]}) or die $m->errstr;
$m->insert('2011-10-04', {ort => 'Oppenheim', temp => [8, 12, 22, 18]});
my $werte = $m->getobject('2011-10-04');
print $werte->{ort}, "\n"; # Oppenheim
print join("\n", @{$werte->{temp}});

Alle Daten in einer kompakten Datei, bei 20 tausend Einträgen hat die ungefähr 1 MB. Werte im Array: sieht doch gut aus, oder? Werte als HashRef sind auch nicht schlecht, per Name ansprechbar.... Dazu gibts die Klasse myObjects.pm, mit IO::File und Storable mal eben zusammengetackert ;)

Viele Grüße,
Rolf

PS: Wenn mehrere Prozesse im Spiel sind, kann auch gelockt werden.