MySQL::Backup - new_from_DBH liefert Fehler (Datenbanken und Verzeichnisdienste)

[thread]16282[/thread]

MySQL::Backup - new_from_DBH liefert Fehler

Tags: perl5 MySQL Similar Threads

Readers: 19

Articles: hide open all | hide show old branches

+5 replies
Kean

2011-05-12 14:38
User since
2004-08-18
463 articles
BenutzerIn
Ich würde gerne das Modul MySQL::Backup nutzen. Wenn ich die Verbindung über new() erstelle funktioniert auch alles wunderbar.
Wenn ich aber die funktion new_from_DBH() nutzen will kommt folgender Fehler:
Code: (dl )

Tk::Error: Can't call method "new_from_DBH" on an undefined value
Ich übergeben wie in der Modulbeschreibung angegeben $dbh was der Datenbankverbindung entspricht. Wenn ich mit das Modul genauer anschaue sehe ich aber, dass (aus meiner Sicht) wohl drei Parameter erwartet werden:
Code (perl): (dl )

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

sub new_from_DBH{ #if you have already DBI connection, you can use this my ($pkg, $dbh, $param) = @_; my $self = {}; $self->{'DBH_OBJ'} = $dbh; $self->{'param'} = {}; foreach my $key(keys %{$param}){ $self->{'param'}->{$key} = $param->{$key}; } bless($self, $pkg); return $self; }
Durchschaut hier jemand wie die Funktion einzusetzen ist?

modedit Editiert von GwenDragon: CPAN-Tag hinzu, Perl-Code-Tag, Titel ergänzt
Last edited: 2011-05-12 15:00:40 +0200 (CEST)
- +4 replies
- GwenDragon
  
  2011-05-12 14:48
  
  User since
  2005-01-17
  14741 articles
  Admin1
  
  Und wie erzeugst du ein neues Objekt von MySQL::Backup?
  //EDIT: Hast du denn schon mit DBI einen connect zur Datenbank hergestellt und ein Datenbankhandle ($dbh)?
  Wie rufst du new_from_DBH auf?
  
  Zeig doch bitte mal Code.
  Last edited: 2011-05-12 14:53:51 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - Kean
    
    2011-05-12 14:53
    User since
    2004-08-18
    463 articles
    BenutzerIn
    
    Ich habs *freu*
    
    Hier die Lösung:
    
    Code (perl): (dl )
    
    my $mb = new_from_DBH DBD::Backup($dbh,{'USE_REPLACE' => 1, 'SHOW_TABLE_NAMES' => 1});
    
    Der Aufruf muss also wie new() gemacht werden nur eben mit new_from_DBH..
    Es wurde noch der Package Name erwartet und optional die Parameter.
    - +2 replies
    - GwenDragon
      
      2011-05-12 14:57
      
      User since
      2005-01-17
      14741 articles
      Admin1
      
      Da es sich um ein Perl-Modul handelt, das objektorientiert arbeitet, ist immer an die Methode der Paketname mit zu übergeben.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - Taulmarill
        
        2011-05-12 15:09
        
        User since
        2004-02-19
        1750 articles
        BenutzerIn
        
        Wenn eine Methode in einem fremden Paket aufgerufen wird, wird der Paketname der aufgerufen wurde automatisch als erstes Argument an die Methode übergeben:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
        
        package Foo; sub bar { print join( ", ", @_ ) . "\n"; } package Bar; our @ISA = 'Foo'; package main; Foo->bar(); Bar->bar();
        
        $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B

View all threads created 2011-05-12 14:38.