perl hash aufbauen für sql insert (Allgemeines zu Perl)

[thread]13885[/thread]

perl hash aufbauen für sql insert

Leser: 21

Articles: hide open all | hide show old branches

+3 replies
area2051

2009-08-19 09:18
User since
2009-08-19
1 Artikel
BenutzerIn
Hallo Forum,

ich hab ein Objekt, dass Attribute besitzt, die ich in eine Mysql Tabelle eintragen möchte.
Für den Aufbau des SQL Strings dachte ich an sowas:
Code (perl): (dl )

my $stmt = 'INSERT INTO job (' . join(',', keys %{$self}) . ') VALUES (' . join(',', ('?') x keys %{$self}) . ')';
Jedoch gibt es nicht zu jedem Key ein Value und zusätzlich hat das Objekt noch den Primärschlüssel (Autoincrement), die ich alle natürlich nicht mit in den String einbauen möchte.
Frage:
Wie baue ich den String am besten auf, wobei ich den key mit dem Namen 'ID' ignoriere und alle Attribute ignoriere, deren Wert NULL ist?

Kann mir einer helfen?

Viele Grüße

M
- pq
  
  2009-08-19 09:47
  User since
  2003-08-04
  12208 Artikel
  Admin1
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  # ungetestet my @keys = grep { defined $self->{$_} and $_ ne 'ID' } keys %$self; my $fields = join ',', @keys; my $values = join ',', ('?') x @keys; my $stmt = "INSERT INTO job ($fields) VALUES ($values)"; my $sth = $dbh->prepare($sth); $sth->execute(@$self{@keys});
  
  aber vielleicht willst du lieber gleich auf ein ORM wie DBIx::Class umsteigen...
  
  edit: ein paar variablennamen korrigiert
  Last edited: 2009-08-19 09:51:01 +0200 (CEST)
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- RPerl
  
  2009-08-19 09:49
  User since
  2006-11-26
  384 Artikel
  BenutzerIn
  Wenn nicht jeder Schluessel einen Wert hat, dann kannst du doch die Elemente aus dem Hash rausfiltern, oder nicht?
  
  Code (perl): (dl )
  
  perl -we 'my %new_hash; my %hash = (foo => "bar", rofl => undef); foreach (keys %hash) {$new_hash{$_} = $hash{$_} if defined $hash{$_}}; print %new_hash '
  
  Somit bekommst du nur noch definierte Schluessel zurueck.
  
  Den Schluessel ID kannst du mit delete raushauen, oder gleich nach dem defined im code oben and $_ ne 'id'
  Last edited: 2009-08-19 10:06:49 +0200 (CEST)

View all threads created 2009-08-19 09:18.