Eine Abstraktion für Tabellen IV

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]

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.
 

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003