Module, Variablen und Probleme (solved) (Allgemeines zu Perl)

[thread]17307[/thread]

Module, Variablen und Probleme [solved]

Tags: perl5 module global declaration strict Similar Threads

Readers: 24

Articles: hide open all | hide show old branches

+10 replies
Trunkenstein

2012-04-10 15:31
User since
2012-02-15
4 articles
BenutzerIn
Hallo Leute,

ich versuche ein Script zu erstellen was auf verschiedene Module zum Login auf unterschiedliche Datenbanken zugreifen soll (MySQL/Oracle).

Der Login soll per Call an eine Sub aus dem Modul geschehen welche mir dann den Database Handler und die Tabelle (in Form eines Array Wertes) zurück gibt (Wobei beides in der Datei mit den Logindaten hinterlegt ist welche vom Modul eingelesen wird)

Irgendwie hänge ich aber an der Variablen Deklaration zwischen dem Perl Skript und Modul :/

hier einmal der (noch) einfache Quelltext:
Perl Skript
Code: (dl )

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

#! /opt/bin/perl use strict; use lib "/export/home/scripts/NetAct"; use loginmodules::NAnorth; login(); my $sth = $dbh->prepare("SELECT * FROM $values[5] WHERE rownum <11"); $sth->execute(); while (my $ref = $sth->fetchrow_hashref()) { print "Found a row: id = $ref->{'BSCID'}, name = $ref->{'name'}\n"; } $sth->finish(); # Disconnect from the database. $dbh->disconnect();
Login Module
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

package NAnorth; use DBI(); use Exporter; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK @values $dbh); $VERSION = 1.00; @ISA = qw(Exporter); @EXPORT = (login); sub login { my $loginfile = '/export/home/scripts/NetAct/logindata/nan_login.txt'; open (DAT, $loginfile); our @values = split (';',<DAT>); #(0 ip, 1 port, 2 user, 3 sesam, 4 database, 5 table) print Dumper(\@values); #Still debugging..... our $dbh = DBI->connect("DBI:mysql:database=$values[4];host=$values[0]","$values[2]", "$values[3]",{'RaiseError' => 1}); print ("No Error? PERFECT, Database connected\n"); } 1;
die/das Module (NAnorth.pm liegt im Ordner /export/home/scripts/NetAct/loginmodules )

ich habe auch schon nach Anleitungen zur genauen Moduldeklaration gesucht, habe es leider nicht soo wirklich verstanden (wie man vielleicht erkennt).

Ich muss eigentlich nur die $dbh und @values Variable aus dem Modul zurück in mein Skript übergeben, kriege es aber einfach nicht hin.
- GwenDragon
  
  2012-04-10 15:44
  User since
  2005-01-17
  14946 articles
  Admin1
  1. Benutze bitte mal
  
  Code (perl): (dl )
  
  1 2
  
  use strict; use warnings;
  
  2. Deklariere den Paketnamen korrekt.
  Wenn du mit use loginmodules::NAnorth; das Package einbindest, sollte es auch so heißen.
  
  3. Du exportierst nur die Funktion login aus deinem Paket, aber @values und $dbh nicht!? Warum?
  In @EXPORT stehen alles, was automatisch exportiert wird.
  http://perldoc.perl.org/Exporter.html#How-to-Expor...
  Last edited: 2012-04-10 15:48:16 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +8 replies
- rosti
  
  2012-04-10 20:31
  User since
  2011-03-19
  3813 articles
  BenutzerIn
  Da gebe ich mal eine allgemeine Antwort, dem Verständnis förderlich ;)
  
  Den Exporter musst Du nicht unbedingt bemühen, guck mal:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  use Foo; # Foo hat die Funktion bzw. Methode bar # $rv: Return-Value my $rv = Foo->bar; # ruft sub bar{} mit 'Foo' als erstes Argument my $rv = bar Foo; # same as above my $rv = Foo::bar; # kein Argument wird übergeben my $rv = Foo::bar(@args); # Übergabe @args my $rv = Foo->bar(@args); # Achtung, erstes Argument ist 'Foo', dann @args
  
  Anstelle use vars qw($x $y); könntest Du auch das Schlüsselwort our $x; our $x verwenden, das ist ggf. übersichtlicher.
  
  Ja, und dann guck mal, dass Du das Alles ein bischen strukturierter schreibst.
  
  Viel Erfolg,
  Rosti
  https://www.rolfrost.de/
  
  Forum zu Fragen unserer Zeit
  - +7 replies
  - Trunkenstein
    
    2012-04-11 11:56
    User since
    2012-02-15
    4 articles
    BenutzerIn
    
    So, ich habe meinen Code nun noch etwas umgestellt aber habe jetzt neue Probleme, ich blicke mit der Variablendeklaration zwischen Modul und Skript irgendwie noch nicht ganz durch :/
    
    Aktuell erhalte ich die Fehlermeldung:
    
    Quote
    Undefined subroutine &main::comein called at etperf.pl line 11.
    
    Skript
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
    
    #! /opt/bin/perl use strict; use warnings; use lib "/export/home/scripts/NetAct"; use loginmodules::NAnorth qw(&comein @comeincredentials $dbh); our ($dbh, @comeincredentials); &comein(); #$dbh = loginmodules::NAnorth::comein($dbh); FUNKTIONIERT NICHT! #@comeincredentials = loginmodules::NAnorth::comein(@comeincredentials); FUNKTIONIERT NICHT! my $sth = $dbh->prepare("SELECT * FROM $comeincredentials[5] WHERE rownum <11"); $sth->execute(); while (my $ref = $sth->fetchrow_hashref()) { print "Found a row: id = $ref->{'BSCID'}, name = $ref->{'name'}\n"; } $sth->finish(); # Disconnect from the database. $dbh->disconnect();
    
    Modul
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
    
    package NAnorth; use strict; use warnings; use DBI(); require Exporter; our (@ISA, @EXPORT, @EXPORT_OK, @comeincredentials, $dbh); @ISA = qw(Exporter); @EXPORT_OK = qw(&comein @comeincredentials $dbh); sub comein { my $loginfile = '/export/home/scripts/NetAct/logindata/nan_login.txt'; open (DAT, $loginfile); @comeincredentials = split (';',<DAT>); #(0 ip, 1 port, 2 user, 3 sesam, 4 database, 5 table) print Dumper(\@comeincredentials); #Still debugging..... $dbh = DBI->connect("DBI:mysql:database=$comeincredentials[4];host=$comeincredentials[0]","$comeincredentials[2]", "$comeincredentials[3]",{'RaiseError' => 1}); print ("No Error? PERFECT, Database connected\n"); } 1;
    - deleted 2012-04-11 12:07
    - GwenDragon
      
      2012-04-11 13:15
      
      User since
      2005-01-17
      14946 articles
      Admin1
      
      Mit
      
      Code (perl): (dl )
      
      use loginmodules::NAnorth qw(&comein @comeincredentials $dbh);
      
      erzeugst du in Perl intern folgendes:
      
      Code (perl): (dl )
      
      1 2
      
      require loginmodules::NAnorth; loginmodules::NAnorth->import( qw(&comein @comeincredentials $dbh) );
      
      Der Import schlägt logischerweise fehl.
      
      Warum willst du use loginmodules::NAnorth nehmen, wenn dein Modul nicht loginmodules::NAnorth heißt? ?
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - Linuxer
      
      2012-04-11 14:09
      
      User since
      2006-01-27
      3895 articles
      HausmeisterIn
      
      Wenn Dein Modul nur mit package bar; eingeleitet wird, dann solltest Du auch nur use bar; zum Einbinden verwenden.
      
      Wenn dein Modul mit package foo::bar; beginnt, dann musst Du das Modul auch mit diesem Namen einbinden: use foo::bar
      Dazu kommt, dass Perl in diesem Fall im Dateisystem eine Datei foo/bar.pm sucht. (Das "::" wird durch einen Verzeichnis-Trenner ersetzt und ein ".pm" angehangen.)
      
      Wenn Du also use loginmodules::NAnorth qw(&comein @comeincredentials $dbh); verwendest, dann muss
      a) das Modul mit package loginmodules::NAnorth; beginnen
      und
      b) im Dateisystem die Moduldatei NAnorth.pm im Verzeichnis loginmodules liegen: loginmodules/NAnorth.pm.
      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!
    - +3 replies
    - guest rb999
      
      2012-04-11 20:25
      
      Hallo,
      
      Quote
      ch blicke mit der Variablendeklaration zwischen Modul und Skript irgendwie noch nicht ganz durch
      
      Perl besitzt einen eingebauten Debugger - in der Shebang-Zeile die Option -d anhängen
      
      Code: (dl )
      
      1 2 3
      
      #! /opt/bin/perl -d use diagnostics;
      
      Eine Beschreibung findet sich unter
      
      Code: (dl )
      
      perldoc perldebug
      
      Mit dem Debugger kann man nicht nur die aktuellen Variablen kontrollieren, sondern auch Haltepunkte setzen, im Schrittbetrieb arbeiten und den gesamten Test vereinfachen und beschleunigen.
      
      NEBENBEI: Falls es sich bei der vorliegenden Frage nicht nur um eine Fingerübung handelt.
      Weshalb ein Programm-Paket verwenden, das man nicht versteht, wenn offensichtlich alle notwendigen Informationen für den DB-Login verfügbar sind?
      
      NetAct hatte - zumindest bis OSS4 - eine wirklich brauchbare Datenbankbeschreibung. Die direkte Programmierung des Login ist sicher schneller und übersichtlicher als die Verwendung des Moduls.
      Last edited: 2012-04-11 20:27:14 +0200 (CEST)
      - +2 replies
      - Trunkenstein
        
        2012-04-12 16:46
        
        User since
        2012-02-15
        4 articles
        BenutzerIn
        
        Und es läuft :)
        
        @GwenDragon:
        Ich ging davon aus das nur der Modulname im Modul deklariert wird und nicht der ganze Pfad (Darauf bin ich dann gekommen als ich mir den Beitrag von Linuxer durchgelesen habe)
        
        @rb999:
        Huch, ich hätte nicht erwartet jemanden zu treffen der NetAct kennt, wie man sich doch täuschen kann.
        Jedenfalls, ja, das Programm ist NOCH eine Fingerübung (deshalb auch MySQL, NetAct Basiert, zumindest bei uns, Datenbanktechnisch auf Oracle) es soll aber nachher zur Abfrage von Daten direkt aus der NA DB sein.
        
        Ich weiß nicht genau wie du das meinst bzgl.direkter Login Programmierung?
        Ich muss bestimmte daten per cronjob geskriptet Abfragen und in ein weiteres Subnetz an einen Server übergeben, deshalb auch mein Ansatz mit dem DBI Modul von Perl (Ein Kollege hat wohl damit schon mal gearbeitet, uns aber verlassen...)
        
        guest rb999
        
        2012-04-12 18:13
        
        Hallo,
        
        obwohl schon erledigt
        
        zu MySQL will ich mich nicht äußern
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        $dbh = DBI->connect("dbi:Oracle:", "user", 'sesam'); unless ( $dbh ) { # Hier Code falls connect mißlungen } $csr0 = $dbh->prepare($Name_1._SQL_Statement); $csr0->execute; usw.
        
        und mit poladmmx kann man das PW des Nutzers omc abfragen, falls man zur
        gleichen Nutzergruppe gehört.
        Last edited: 2012-04-12 18:15:07 +0200 (CEST)

View all threads created 2012-04-10 15:31.