Eine Abstraktion für Tabellen IV

mitarbeiter.pl

#!/usr/local/bin/perl -w use TBI; use strict; my $abteilung = shift @ARGV; my $ang = TBI->open("Angestellte"); foreach my $key ($ang->select('abtid' => $abteilung)) { my %ang = $ang->fetch($key); print $ang{'name'}, "\n"; }

Mit Hilfe assoziativer Arrays können leichtere Abfragen, bei denen eine Reihe von Feldern bestimmte Werte haben sollen, leicht formulieren.

select liefert analog zu keys Primärschlüssel zurück.

	Mit Hilfe assoziativer Arrays können leichtere Abfragen, bei denen eine Reihe von Feldern bestimmte Werte haben sollen, leicht formulieren.
	`select` liefert analog zu `keys` Primärschlüssel zurück.