Eine Abstraktion für Tabellen V

neuerchef.pl

#!/usr/local/bin/perl use TBI; use strict; use warnings; 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.

	`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.