Help for this page

Select Code to Download


  1. or download this
    my $fields = join ', ', keys %{$form->field};
    my $values = join ', ', map {$dbh->quote($_)} values %{$form->field};
    
  2. or download this
    
    my $fields = join ', ', keys %{$form->field};
    ...
    my $sql = qq| INSERT INTO mytable ($fields) VALUES ($placeholders); |;
    my $st = $dbh->prepare($sql);
    $st->execute(@values);