Ein Beispiel für eine Textdatenbank V

Books.pm

sub new { my ($package, $dbfile) = @_; my $self = bless { dbfile => $dbfile, records => {}, changes => 0, }, $package; my $in = new IO::File $dbfile; if (defined $in) { while (<$in>) { chomp; my $record = line_to_record($_); $self->{records}->{$record->{$key}} = $record; } $in->close; } return $self; }

Ein Objekt, das eine Datenbank mit Büchern repräsentiert, benötigt hier drei Komponenten:

dbfile Name der Textdatei. Diese wird benötigt um ggf. einen veränderten Stand abzusichern.

changes Dient dazu festzustellen, ob irgendwelche Änderungen durchgeführt worden sind.

records Zeiger auf ein assoziatives Array mit all den Datensätzen.