DB-Update über Funktion (solved) (Datenbanken und Verzeichnisdienste)

[thread]16183[/thread]

DB-Update über Funktion [solved]

Tags: perl5 Similar Threads

Readers: 24

Articles: hide open all | hide show old branches

+6 replies
Duff

2011-04-12 10:59

User since
2006-10-06
283 articles
BenutzerIn

Hallo,

ich möchte ein update auf eine DB machen und dies in einer Funktion aufrufen.
Wie stelle ich dies an, damit ich nicht in der Funktion immer die DB-Verbinung auf und abbauen muss?

Danke.
D'OH
Daniel
- +2 replies
- Linuxer
  
  2011-04-12 11:05
  User since
  2006-01-27
  3890 articles
  HausmeisterIn
  Du könntest eine Variable anlegen und den DB-Handle darin ablegen.
  Diese Variable übergibst Du Deiner Funktion, die dann damit arbeiten kann.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  
  sub db_update { my $dbh = shift; my $entry = shift; # tu was mit $dbh und $entry } sub my_main { my $dbh = DBI->connect("...") or die "....."; for my $entry ( 1 .. 10 ) { db_update( $dbh, $entry ); } }
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - Duff
    
    2011-04-12 11:47
    
    User since
    2006-10-06
    283 articles
    BenutzerIn
    
    Danke. Bin ich irgendwie nicht drauf gekommen. Naja, manchmal sieht man vor lauter Bäumen den Wald nicht mehr ;-)
    
    D'OH
    Daniel
- +3 replies
- rosti
  
  2011-04-12 20:40
  
  User since
  2011-03-19
  3463 articles
  BenutzerIn
  
  Auch wenn hier schon der Haken erledigt dran ist... mein Vorschlag besteht darin, sämtliche DB-Zugriffe in Klassen zu organisieren. Im Konstruktor wird die Verbindung zur DB hergestellt und bei Erfolg das Handle bzw. ein Objekt mit dem Handle zurückgegeben.
  
  Alle DB-Zugriffe, Update, Insert... erfolgen dann nur noch über eigene Methoden, die mit dem Objekt aufgerufen werden. Der Vorteil einer solchen Organisation: Sämtliche SQL-Statements von create bis drop sind in der Klasse notiert, das wird schön übersichtlich, falls da mal was geändert werden muss. In den Scripts ist dann auch kein SQL-Code mehr.
  
  Anm. zum connect:
  Quote
  Use eval { ... } if you need to catch the "install_driver" error.
  , d.h., {RaiseError => 1} setzen.
  
  connect_cached und prepare_cached ist auch eine Überlegung wert, mal anschauen.
  
  --Rolf
  - +2 replies
  - pq
    
    2011-04-13 11:06
    
    User since
    2003-08-04
    12208 articles
    Admin1
    
    ich habe mal ein mini-ORM geschrieben. damals war es mir nicht erlaubt, DBIx::Class zu benutzen, aber ein bisschen kapseln wollte ich schon. da ich durch die benutzung von DBIx::Class (woanders) ganz schön bequem geworden war, kam ich bei meinem ORM vom hundertsten ins tausendste.
    
    bevor ich also jemandem empfehle, sich sein SQL selber zu kapseln, würde ich dringend raten, die verwendung von DBIx::Class zu prüfen.
    ich habe selbst ein projekt, bei dem es nicht sinnvoll einsetzbar wäre (über 100 inserts pro sekunde im tagesschnitt), aber das ist die ausnahme.
    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
    - rosti
      
      2011-04-13 11:40
      
      User since
      2011-03-19
      3463 articles
      BenutzerIn
      
      Quote
      DBIx::Class
      , ja danke, werde ich mit angucken ;)
      
      Btw., CPAN ist einfach genial. Die Tage brauchte ich einen Hash, der überall sortiert sein muss und überlegte, wie ich das machen könnte, klar mit tie(%hash). Nach dem Rauchen meiner morgendlichen :P war mein erster Weg zu CPAN und siehe da: http://search.cpan.org/~jgatcomb/Tie-Hash-Sorted-0.10/Sorted.pm
      
      Einfach Klasse die Klasse! Class(Forum) auch.
      
      --Rolf

View all threads created 2011-04-12 10:59.