ASCII-Dateien als assoziative Arrays IV

addresses4.pl

#!/usr/local/bin/perl -w use FileDB; use strict; my %addresses; tie(%addresses, 'FileDB', "addressbook", ":"); foreach my $name (keys %addresses) { printf "%-20s | %s\n", $name, $addresses{$name}; }

Das Modul FileDB wird bei uns gelegentlich als elegante Zugriffs-Methode für kleine Datenbanken in ASCII-Form verwendet.

Bei den implementierungsspezifischen Parametern wird zuerst ein Dateiname genannt und anschließend der Feldtrenner.

Die Implementierung notiert, ob irgendwann etwas geändert worden ist und sichert in Abhängigkeit davon am Ende (bei DESTROY) den neuen Stand in die gegebene Datei.

Das Standard-Modul Carp offeriert die Möglichkeit, Fehlermeldungen unter Angabe des Aufrufers auszugeben. Dies ist in Bibliotheks-Modulen interessant, die die Schuld dem fremden Programmierer geben wollen und nicht sich selbst :-)

	Das Modul `FileDB` wird bei uns gelegentlich als elegante Zugriffs-Methode für kleine Datenbanken in ASCII-Form verwendet.
	Bei den implementierungsspezifischen Parametern wird zuerst ein Dateiname genannt und anschließend der Feldtrenner.
	Die Implementierung notiert, ob irgendwann etwas geändert worden ist und sichert in Abhängigkeit davon am Ende (bei `DESTROY`) den neuen Stand in die gegebene Datei.
	Das Standard-Modul `Carp` offeriert die Möglichkeit, Fehlermeldungen unter Angabe des Aufrufers auszugeben. Dies ist in Bibliotheks-Modulen interessant, die die Schuld dem fremden Programmierer geben wollen und nicht sich selbst :-)