DBI tabelle erstellen (gelöst) (Datenbanken und Verzeichnisdienste)

[thread]16478[/thread]

DBI tabelle erstellen [gelöst]

Tags: perl5 DBI Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+9 replies
Gast slicer

2011-06-30 21:48
Hey,

Wie lautet die Syntax, um eine Tabelle auf einer Postgres DB zu erstellen, bei der auch ein "-" im Namen vorkommen darf? Habe schon alle möglichen Dinge probiert. Ich denke mal die Lösung wird dieselbe sein, aber ich frage vorsichtshalber mal auch danach, wie man bei Variablennamen verfährt.

Vielen Dank im voraus!
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13

$name = "komischer-name"; $dbh->do( "CREATE TABLE $name ( $name text, datum time, CONSTRAINT deeeescr PRIMARY KEY ($name,datum) ) WITH ( OIDS=FALSE ); ");
- +4 replies
- rosti
  
  2011-06-30 21:59
  User since
  2011-03-19
  3471 Artikel
  BenutzerIn
  Ungeprüft:
  
  Code (perl): (dl )
  
  $name = $dbh->quote($name);
  
  oder $name in Backticks: `$name`
  
  Edit
  Auf mysql getestet, mit Backticks funktioniert es.
  Last edited: 2011-06-30 22:06:41 +0200 (CEST)
  - +3 replies
  - Gast slicer
    
    2011-06-30 22:09
    
    Backticks funktionieren auf postgres seltsamerweise nicht, war auch mein erster Gedanke.
    
    das ungeprüfte geht leider auch nicht
    Last edited: 2011-06-30 23:08:01 +0200 (CEST)
    - +2 replies
    - moritz
      
      2011-07-01 10:29
      
      User since
      2007-05-11
      923 Artikel
      HausmeisterIn
      
      Backticks für Identifier sind mysql-spezifisch, postgres nimmt doppelte Anführungszeichen dafür.
      Perl 6 - Perls Zukunft
      - rosti
        
        2011-07-01 10:54
        
        User since
        2011-03-19
        3471 Artikel
        BenutzerIn
        
        Hi Moritz und Gemeinde,
        
        die Chance, von der Engine unabhängig zu werden, sollten wir wahrnehmen ;)
        
        PQ war schneller und hat in die Gebrauchsanweisung geschaut, das habe ich jetzt nachgeholt: Method $dbh->quote_identifier() funktioniert auf MySQL einwandfrei. Machen ;)
        
        Viele Grüße,
        Rolf
- +2 replies
- topeg
  
  2011-06-30 22:52
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Also das funktioniert:
  
  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
  
  #!/usr/bin/perl use strict; use warnings; use DBI; my $dbname='xxx'; my $user='anonymous'; my $pass='???'; my $dbh = DBI->connect("dbi:Pg:dbname=$dbname", $user, $pass, {RaiseError => 1, AutoCommit => 1}) or die $DBI::errstr; my $cname='nur-ein-test'; # entwerten von doppelten Anführungszeichen durch verdoppeln, # wenn sie im Spaltennamen vorkommen $cname=~/"/""/gs; # es kann aber dennoch sein, dass fremder Code eingeschleust wird. $dbh->do(qq'CREATE TABLE test ( "$cname" text, datum date, id int )'); $dbh->disconnect();
  
  Wichtig ist hier, dass der Spaltenname in doppelten Anführungszeichen steht steht. Sei aber vorsichtig, von wo du den Spaltennamen übernimmst. Man kann einigen Unsinn anstellen, wenn ungeprüft in die DB geschrieben wird.
  
  Ich halte es für eine Fehlplanung der DB, wenn automatisiert neue Tabellen anlegt werden, das lässt sich auch anders lösen.
  - Gast slicer
    
    2011-06-30 23:41
    
    Danke topeg, das funzt!
    
    Du hast prinzipiell recht, aber es werden nur automatisiert erzeugte Daten herangezogen, in denen kein bösartiger Code lauern wird.
    
    Vielen Dank!
    Last edited: 2011-06-30 23:49:36 +0200 (CEST)
- +2 replies
- pq
  
  2011-07-01 00:36
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  bitte einfach die richtige methode dafür verwenden:
  my $string = $dbh->quote_identifier( $name );
  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
  - topeg
    
    2011-07-01 00:53
    User since
    2006-07-10
    2611 Artikel
    BenutzerIn
    
    Hast natürlich recht. So sollte man es machen:
    
    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
    
    #!/usr/bin/perl use strict; use warnings; use DBI; my $dbname='xxx'; my $user='anonymous'; my $pass='???'; my $dbh = DBI->connect("dbi:Pg:dbname=$dbname", $user, $pass, {RaiseError => 1, AutoCommit => 1}) or die $DBI::errstr; my $cname='nur-ein-test'; $cname = $dbh->quote_identifier($cname); $dbh->do("CREATE TABLE test ( $cname text, datum date, id int )"); $dbh->disconnect();

View all threads created 2011-06-30 21:48.