Generierung von SQL-Anweisungen IV

TBD/DBI.pm

sub select { my ($self, %clauses) = @_; my @clauses = (); my @values = (); my ($field, $value); while (($field, $value) = each %clauses) { push(@clauses, "$field = ?"); push(@values, $value); } my @keyfields = @{$self->{'keyfields'}}; my $keyfields = join(", ", @keyfields); my $st = $self->{'db'}->prepare( "select $keyfields from $self->{'table'} " . " where " . join(" and ", @clauses) ); $st->execute(@values); $st->finish; return $self->return_keys($st); }

Bei select hängt die SQL-Anweisung direkt von %clauses ab, so daß sie jedesmal neu erzeugt wird.