Thread Mysql und Perl (33 answers)
Opened by Johannes at 2012-06-14 09:14

topeg
 2012-06-14 16:08
#159033 #159033
User since
2006-07-10
2611 articles
BenutzerIn

user image
OK noch mal etwas ernsthafter.
Hier habe ich so viele Klammern weggelassen wie ich konnte:
more (19.9kb):
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
package database ;
use strict ;
use warnings ;
use DBI ;

our $con      = "DBI:mysql:test_db" ;
our $user     = "root" ;
our $passwort = "pwd" ;
my $db ;

sub open_db {
  $db = DBI -> connect ( $con , $user , $passwort ) or die "DB connection not made: $DBI::errstr" unless $db ;
  return $db ;
}

sub close_db {
  return unless $db ;
  $db -> disconnect ;
  undef $db ;
}

sub insert_tab {
  my $table       = shift ;
  my $values      = shift ;
  my $primary_key = shift ;

  # $table und $values müssen vorhanden sein!
  return 0 unless $table and $values ;

  # $values muss ein hash sein!
  return 0 if ref $values ne 'HASH' ;

  # INSERT -----------

  # Keys und Values separieren
  my @vals ;
  my @keys ;
  my @v ;
  push @keys , shift @v and push @vals , shift @v while ( @v = each %$values ) ;
  my $insert_keys = join ', ' , @keys ;

  # Für jeden wert ein '?'
  my $insert_vals = join ', ' , '?' x @keys;

  my $dbh = open_db ;

  my $sth = $dbh -> prepare ( qq !INSERT INTO $table ( $insert_keys ) VALUES ( $insert_vals ) ! ) ;
  my $ok = $sth -> execute ( @$values ) ;
  $sth -> finish ;

  # einfügen Erfolgreich
  return 1 if $ok ;

  # einfügen war nicht erfolgreich aber kein Primärer Key wurde definiert
  return 0 unless defined $primary_key ;

  # UPDATE ---------

  # ist der Primäre Key aufgeführt?
  return 0 unless exists $values -> { $primary_key } ;

  # primären key entfernen
  my $primary_val = delete $values -> { $primary_key } ;

  # Keys und Values separieren
  $#vals = 0 ;
  $#keys = 0 ;
  push @keys , shift @v and push @vals , shift @v while ( @v = each %$values ) ;
  my $update_vals = join ', ' , map "$_ = ?" , @keys ;

  $sth = $dbh -> prepare ( qq !update $table SET $update_vals WHERE $primary_key = ?! ) ;
  $ok = $sth -> execute ( @vals , $primary_val ) ;
  $sth -> finish ;

  return $ok;
}

1 ;

View full thread Mysql und Perl