Modul require aber wie? (solved) (Allgemeines zu Perl)

[thread]14126[/thread]

Modul require aber wie? [solved]

Readers: 29

Articles: hide open all | hide show old branches

+17 replies
bianca

2009-10-10 16:41
User since
2009-09-13
7016 articles
BenutzerIn
Guten Tag.

Nachdem in einem anderen Thread ein bestimmtest Problem aufgetaucht ist, möchte ich hier die Frage stellen, wie man ein Modul einbindet, dass erst bei Zutreffen einer if Bedingungen geladen wird aber auf keinen Fall schon beim Laden des ganzen Scripts.

Ich verwendete dafür bisher:
Code (perl): (dl )

eval { require Net::FTP; };
und fragte danach mit
Code (perl): (dl )

if ($@)
ab, ob es gelungen ist.

Funktionell hatte ich mit dieser Vorgehensweise bisher bei keinem Modul ein Problem.
Ist daran irgend etwas falsch oder verbesserungswürdig?
10 print "Hallo"
20 goto 10
- +12 replies
- pq
  
  2009-10-10 16:45
  User since
  2003-08-04
  12209 articles
  Admin1
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  my $ftp; BEGIN { eval { require Foo; }; # oder eval "use Foo" $ftp = 1 unless $@; } if ($ftp) { }
  
  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
  - +11 replies
  - bianca
    
    2009-12-26 08:47
    User since
    2009-09-13
    7016 articles
    BenutzerIn
    
    Danke für diesen Tipp. Habe das jetzt mal beispielhaft mit einem Modul umgesetzt, was bei mir lokal absolut nicht läuft.
    
    Bezüglich des Moduls ist das error.log auch verschont und Script läuft.
    Aber es kommt trotzdem folgender Eintrag im log bezüglich use:
    
    Code: (dl )
    
    Useless use of a constant in void context at [gekürzt]/script.pl line 26., referer: [gekürzt]/script.pl
    
    Mein Versuch:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7
    
    my $parser; BEGIN { eval { "use Parse::HTTP::UserAgent" }; $parser = 1 unless $@; }
    
    Ist da noch etwas falsch?
    10 print "Hallo"
    20 goto 10
    - +10 replies
    - renee
      
      2009-12-26 10:57
      
      User since
      2003-08-04
      14371 articles
      ModeratorIn
      
      Wenn dann müsste es
      
      Code (perl): (dl )
      
      eval "use Modul; 1;" or die $@; # kein Block-eval
      
      heißen. Du hast einen String innerhalb eines Block-evals im void-Kontext und perl weiß nicht, was es damit anfangen soll.
      
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
      - bianca
        
        2009-12-26 11:40
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        2009-12-26T09:57:36 renee
        Wenn dann müsste es
        
        Danke Dir, klappt.
        10 print "Hallo"
        20 goto 10
      - +5 replies
      - bianca
        
        2010-02-06 13:28
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        2009-12-26T09:57:36 renee
        
        Code (perl): (dl )
        
        eval "use Modul; 1;" or die $@; # kein Block-eval
        
        Hierzu bitte noch eine Frage.
        Wird das - analog require - erst ausgeführt, wenn die Stelle im Script vom Interpreter abgearbeitet wird oder gleich beim Laden des Moduls wie ein use ganz oben?
        
        Danke
        10 print "Hallo"
        20 goto 10
        
        +4 replies
        
        renee
        
        2010-02-06 14:12
        
        User since
        2003-08-04
        14371 articles
        ModeratorIn
        
        Das passiert erst zur Laufzeit, quasi wie ein require (obwohl hier das "use" auch den import macht).
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        +3 replies
        
        bianca
        
        2010-02-06 14:23
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        2010-02-06T13:12:01 renee
        Das passiert erst zur Laufzeit, quasi wie ein require (obwohl hier das "use" auch den import macht).
        
        Also auch erst dann, wenn es z.B. innerhalb eines if () {} zur Ausführung kommt, richtig? Also beispielsweise der Menüpunkt aus einem von mehreren im gleichen Script vom Benutzer angewählt wurde?
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        renee
        
        2010-02-06 15:09
        
        User since
        2003-08-04
        14371 articles
        ModeratorIn
        
        Ja, lässt sich auch leicht prüfen:
        
        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 24 25 26 27 28 29
        
        jars@jars-desktop$ perl -MData::Dumper -le 'print Dumper \%INC; if ( eval "use CGI;1;" ) { print Dumper \%INC }; ' $VAR1 = { 'warnings/register.pm' => '/usr/share/perl/5.8/warnings/register.pm', 'bytes.pm' => '/usr/share/perl/5.8/bytes.pm', 'XSLoader.pm' => '/usr/lib/perl/5.8/XSLoader.pm', 'Carp.pm' => '/usr/share/perl/5.8/Carp.pm', 'Exporter.pm' => '/usr/share/perl/5.8/Exporter.pm', 'warnings.pm' => '/usr/share/perl/5.8/warnings.pm', 'overload.pm' => '/usr/share/perl/5.8/overload.pm', 'Data/Dumper.pm' => '/usr/lib/perl/5.8/Data/Dumper.pm' }; $VAR1 = { 'warnings/register.pm' => '/usr/share/perl/5.8/warnings/register.pm', 'bytes.pm' => '/usr/share/perl/5.8/bytes.pm', 'XSLoader.pm' => '/usr/lib/perl/5.8/XSLoader.pm', 'Carp.pm' => '/usr/share/perl/5.8/Carp.pm', 'vars.pm' => '/usr/share/perl/5.8/vars.pm', 'strict.pm' => '/usr/share/perl/5.8/strict.pm', 'Exporter.pm' => '/usr/share/perl/5.8/Exporter.pm', 'constant.pm' => '/usr/share/perl/5.8/constant.pm', 'warnings.pm' => '/usr/share/perl/5.8/warnings.pm', 'CGI/Util.pm' => '/usr/local/share/perl/5.8.8/CGI/Util.pm', 'overload.pm' => '/usr/share/perl/5.8/overload.pm', 'CGI.pm' => '/usr/local/share/perl/5.8.8/CGI.pm', 'Data/Dumper.pm' => '/usr/lib/perl/5.8/Data/Dumper.pm' }; jars@jars-desktop$
        
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        bianca
        
        2010-02-06 15:26
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        Und das bedeutet - wenn ich das mal zur Überprüfung meines eigenen Verständnisses in eigene Worte packen darf - dass das eval insgesamt true zurück liefert, das use CGI also geklappt hat, was sich durch noch mehr Einträge in %INC zeigt.
        Richtig?
        
        Würde das use des Moduls außerhalb des if - also schon beim Laden des Scriptes - ausgeführt, hätte %INC vorher und nachher den gleichen Wert.
        
        Womit bewiesen wäre, dass es erst ausgeführt wird, wenn es per if dran ist, was meine Frage mit einem JA beantwortet.
        
        Ich danke Dir. So wollte ich es haben.
        10 print "Hallo"
        20 goto 10
      - +3 replies
      - Escape
        
        2010-02-06 14:45
        
        User since
        2008-07-24
        312 articles
        BenutzerIn
        
        2009-12-26T09:57:36 renee
        Wenn dann müsste es
        
        Code (perl): (dl )
        
        eval "use Modul; 1;" or die $@; # kein Block-eval
        
        Und dabei (also kein Block-eval) wird tätsächlich $@ zurückgeliefert?
        Die Deutsche Rechtschreibung ist Freeware; Du darfst sie kostenlos nutzen – aber sie ist nicht Open Source, d.h. Du darfst sie nicht verändern und/oder in veränderter Form veröffentlichen.
        
        bianca
        
        2010-02-06 14:47
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        2010-02-06T13:45:50 Escape
        Und dabei (also kein Block-eval) wird tätsächlich $@ zurückgeliefert?
        
        Weiß nicht. In der Anwendung mache ich das hier:
        
        Code (perl): (dl )
        
        1 2
        
        my $browser_parser = 1; eval "use HTTP::DetectUserAgent; 1;" or $browser_parser = 0;
        
        Das klappt.
        10 print "Hallo"
        20 goto 10
        
        MatthiasW
        
        2010-02-06 15:03
        
        User since
        2008-01-27
        367 articles
        BenutzerIn
        
        edit: Jetzt ist mir grad aufgefallen, dass die Frage doppeldeutig ist. Also zurückgegeben wird nich $@, aber gesetzt wird es. Zurückgegeben wird es aber auch nicht beim Block-eval:
        
        perldoc -f eval
        If there is a syntax error or runtime error, or a die statement is executed, eval returns an undefined value in scalar context or an empty list in list context, and $@ is set to the error message.
        
        ---
        
        Yep, ein einfacher Test hätte genügt:
        
        perl -E 'eval "1/0" or die "Error: $@"'
        
        perl -E 'eval "use foobar;1" or die "Error: $@"'
        
        Oder auch ein Blick in die Doku.
        
        MfG
        
        edit: Mir ist soeben aufgefallen, dass bei der Vorschau runde Aufzählungspunkte angezeigt werden, im eigentlichen Post dann aber eckige. Ist im Prinzip egal, aber es ist mir halt grad aufgefallen ;-)
        Last edited: 2010-02-06 15:09:28 +0100 (CET)
        perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
- +3 replies
- guest wer
  
  2009-10-10 16:51
  Ich mache es bisher so:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  BEGIN { eval "use ModulX"; } if (ModulX->can('Methode')) { print "CAN:\n" #... ModulX::Methode(); #... } else { print "CANT\n"; }
  - +2 replies
  - pq
    
    2009-10-10 16:54
    
    User since
    2003-08-04
    12209 articles
    Admin1
    
    was aber auch nur funktioniert, wenn es sich um ein modul handelt, aus dem du eine funktion importierst. ansonsten kannst du den ansatz nicht benutzen.
    ich schrieb ja oben, wie es allgemeiner geht.
    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
    - renee
      
      2009-10-11 18:21
      
      User since
      2003-08-04
      14371 articles
      ModeratorIn
      
      can funktioniert bei jedem Modul und die Methode wird hier "voll qualifiziert" aufgerufen.
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
- sid burn
  
  2009-10-12 01:58
  User since
  2006-03-29
  1520 articles
  BenutzerIn
  Evtl. kann man dafür auch das "if" Modul nutzen. Je nachdem was man macht. Ich persönlich habe diesen weg bisher noch nie genutzt. http://perldoc.perl.org/if.html
  
  Ansonsten bieten auch "Class::MOP" das ja ein Modul für Meta Programmierung ist solche Funktionalitäten an. Da kannst du dann folgendes schreiben:
  
  Code: (dl )
  
  Class::MOP::load_class($class_name)
  
  Extrahiert von Class::MOP gibt es das auch nochmal einzelnt. Class::Load
  
  Es gab noch ein anderes Modul das ebenfalls auch das Importieren von Modulen regelt. Allerdiengs weiß ich den Namen nicht mehr.
  Last edited: 2009-10-12 01:59:50 +0200 (CEST)
  Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de

View all threads created 2009-10-10 16:41.