Eine Abstraktion für Tabellen V

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]

neuerchef.pl
#!/usr/local/bin/perl -w

use TBI;
use strict;

my $abteilung = shift @ARGV;
my $chef = shift @ARGV;

my $ang = TBI->open("Angestellte");
my $abt = TBI->open("Abteilungen");
if ($abt->exists($abteilung) && $ang->exists($chef)) {
   $abt->modify($abteilung, 'chef' => $chef);
}

*exists liefert TRUE zurück, wenn es einen Datensatz mit dem gegebenen Schlüssel gibt.
 
*Mit modify können vorhandene Datensätze modifiziert werden.
 
*Dabei ist es insbesondere nicht notwendig, alle Datenfelder frisch anzugeben. Es müssen nur die geänderten in Form eines assoziativen Arrays übergeben werden.
 

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000