Eröffnen von Tabellen

TBI.pm

sub open {    my ($package, $name) = @_;    my $table = undef;    if (defined($tables{$name})) {       unless (defined($table = $tables{$name}->{handle})) {          $table = $tables{$name}->{package}->                   new(%{$tables{$name}->{params}});       }    }    return $table; }

	Wenn eine Tabelle eröffnet werden soll, wird von der Basisabstraktion TBI überprüft, ob sie bereits offen ist (dann wird der vorhandene Verweis darauf zurückgeliefert) oder ob sie bekannt ist und daher frisch eröffnet werden kann.
	Bei einer Neu-Eröffnung wird der Konstruktor new verwendet, der dann die gesamte Initialisierungs-Sequenz zur Folge hat.

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