|
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.
|
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000 |