Ein Beispiel für eine Textdatenbank III

Books.pm

package Books; use strict; use warnings; use Carp; use Fcntl; use File::Sync; use IO::File; require Exporter; our @ISA = qw(Exporter); my @fieldnames = qw(isbn author title); my $key = "isbn"; my $fieldsep = ":"; my $escape = "%";

Um leicht Änderungen durchführen zu können, sind die wichtigsten Parameter als Variablen deklariert:

@fieldnames Verwendete Feldnamen und deren Reihenfolge

$key Der Name des als Schlüssel verwendeten Feldes

$fieldsep Feldtrenner

$escape Zeichen zu Beginn einer Ersatzdarstellung