|
#!/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 |