Generierung von SQL-Anweisungen II

TBD/DBI.pm

sub hash2tuple {    my ($self, %hash) = @_;    my @tuple = ();    foreach my $fieldname (@{$self->{fields}}) {       push(@tuple, $hash{$fieldname});    }    return @tuple; } sub add {    my ($self, $key, %fields) = @_;    if (ref($key)) {       %fields = (%fields, %{$key});    } else {       $fields{$self->{keyfields}->[0]} = $key;    }    $self->{insert}->execute($self->hash2tuple(%fields)); }

	Die INSERT-Anweisung ist ebenfalls in TBD::DBI::initialize2 vorbereitet worden, so daß nur noch die Liste mit den Platzhaltern vorzubereiten ist.
	Zunächst wird dazu der Schlüssel zu %fields hinzugefügt und dann das assoziative Array mit allen Feldinhalten in eine geordnete Liste konvertiert.

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