Ein Beispiel für eine Textdatenbank II

addbook.pl

#!/usr/local/bin/perl use strict; use warnings; use Books; my $cmdname = $0; $cmdname =~ s{.*/}{}; my $usage = "Usage: $cmdname isbn author title\n"; die $usage unless @ARGV == 3; my $isbn = shift; my $author = shift; my $title = shift; my $books = new Books "mybooks"; $books->add( isbn => $isbn, author => $author, title => $title );

Die Zugriffe auf die Textdatenbank für die Bücher sind in dem Modul Books verpackt, daß folgende Operationen anbietet:

$books->add(isbn => ...) Hinzufügen eines Datensatzes

$books->delete($isbn) Löschen eines Datensatzes

$books->find($isbn) Abfrage eines Datensatzes

$books->save($isbn) Absichern aller Datensätze