|< 1 2 >| | 17 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
my @all_fields = qw(ort mv_id mol_id);
# hier alle Felder, die Integer sein sollen
my @integer_fields = qw(mol_id);
my @def_fields = ();
foreach (@all_fields) {
push @def_fields, $_ if defined $params{$_};
}
for(@integer_fields){
$params{$_} = undef if($params{$_} eq '');
}
if (@def_fields) {
my $sql = "INSERT INTO recherche (" . join(',', @def_fields) . ") VALUES (" . join(',', ('?') x scalar @def_fields) . ")";
my $sth = $dbh->prepare($sql) or die $dbh->errstr();
$sth->execute(@params{@def_fields}) or die $dbh->errstr();
}
QuoteNepos hatte wohl den richtigen Riecher. Ich werde zu dem Zeitpunkt, wenn ich in die db schreiben will, wohl eine leere Stringvariable, aber keine undefinierte Variable haben.
$name = undef if $name eq ''
|< 1 2 >| | 17 Einträge, 2 Seiten |