|
#!/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:
|
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |