Eine Abstraktion für Tabellen IV

mitarbeiter.pl

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

Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003