Modulversion wird als undef ausgegeben (Allgemeines zu Perl)

[thread]14228[/thread]

Modulversion wird als undef ausgegeben

Leser: 22

Articles: hide open all | hide show old branches

+20 replies
pktm

2009-11-06 13:22
User since
2003-08-07
2921 Artikel
BenutzerIn
Hallo!

Meine Skripten zeigen neuerdings die Version von Modulen nicht mehr an.
Siehe hier:
Code: (dl )

1 2

C:\>perl -e "use Data::Dumper; print Data::Dumper::Dumper( $CGI::VERSION )" $VAR1 = undef;
Ich habe meinen PC neu gemacht und nutze jetzt ActiveState perl, v5.10.1 built for MSWin32-x64-multi-thread auf Win7 x64.

Kennt jemand das Problem? Oder mache ich vllt. einfach nur etwas falsch?

Grüße, pktm
http://www.intergastro-service.de (mein erstes CMS :) )
- bianca
  
  2009-11-06 13:23
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  Ist bei mir auch mit Perl v5.10.0 built for MSWin32-x86-multi-thread auf Vista:
  
  Code: (dl )
  
  1 2 3 4
  
  C:\>perl -e "use Data::Dumper; print Data::Dumper::Dumper( $CGI::VERSION )" $VAR1 = undef; C:\>
  
  Edit: Tag geändert
  Last edited: 2009-11-06 13:45:50 +0100 (CET)
  10 print "Hallo"
  20 goto 10
- +18 replies
- Gast wer
  
  2009-11-06 13:36
  ähm:
  
  Code: (dl )
  
  1 2
  
  perl -e 'use Data::Dumper; print Data::Dumper::Dumper( $CGI::VERSION )' $VAR1 = undef;
  
  aber
  
  Code: (dl )
  
  1 2
  
  perl -e 'use CGI; use Data::Dumper; print Data::Dumper::Dumper( $CGI::VERSION )' $VAR1 = '3.43';
  
  Ohne CGI kein CGI ;-)
  
  Wobei ich es so schreiben würde...
  
  Code: (dl )
  
  1 2
  
  perl -MCGI -MData::Dumper -e 'print Dumper( $CGI::VERSION )' $VAR1 = '3.43';
  - +3 replies
  - bianca
    
    2009-11-06 13:48
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Guest wer
    Wobei ich es so schreiben würde...
    
    Code: (dl )
    
    1 2
    
    perl -MCGI -MData::Dumper -e 'print Dumper( $CGI::VERSION )' $VAR1 = '3.43';
    
    Code: (dl )
    
    1 2 3 4
    
    C:\>perl -MCGI -MData::Dumper -e 'print Dumper( $CGI::VERSION )' Can't find string terminator "'" anywhere before EOF at -e line 1. C:\>
    
    10 print "Hallo"
    20 goto 10
    - +2 replies
    - Gast wer
      
      2009-11-06 13:59
      
      Unter Windows ist alles anders...
      Meine Shell macht das Problemlos. Warum hat Windows Probleme mit Singelquotes?
      
      Das Problem ist, das wenn ich mit Doublequotes unter der Shell arbeite "$CGI" als Shellvariable interpretiert wird und durch einen Leerstring ersetzt wird es stünde dann nur noch "::VERSION" in den Klammern.
      
      Funktioniert wenigstens das?
      
      Code: (dl )
      
      perl -MCGI -MData::Dumper -e "print Dumper( $CGI::VERSION )"
      - bianca
        
        2009-11-06 14:27
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Jawoll!
        
        Code: (dl )
        
        1 2 3 4
        
        C:\>perl -MCGI -MData::Dumper -e "print Dumper( $CGI::VERSION )" $VAR1 = '3.29'; C:\>
        
        10 print "Hallo"
        20 goto 10
  - +14 replies
  - sid burn
    
    2009-11-06 14:31
    User since
    2006-03-29
    1520 Artikel
    BenutzerIn
    
    Ich würde es so schreiben.
    
    Code: (dl )
    
    perl -MCGI -E 'say CGI->VERSION'
    
    Oder so:
    
    Code: (dl )
    
    perl -MCGI\ 9999 -e1
    
    Allerdiengs kommt der Fall so oft vor das ich mir ein eigenes Skript dafür mal geschrieben habe.
    
    http://sidburn.de/cgi-bin/gitweb.cgi?p=bin.git;a=b...
    Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
    - +13 replies
    - bianca
      
      2009-11-06 14:54
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Geil!
      
      Gibt es auch eine Version, die nicht ein Modul dafür braucht, Module aufzulisten?
      
      Also eine ohne Class::Load ?
      10 print "Hallo"
      20 goto 10
      - +12 replies
      - renee
        
        2009-11-06 14:59
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Den Teil
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        use Class::Load qw(try_load_class); for my $module ( @ARGV ) { if ( try_load_class($module) ) { say "$module => ", $module->VERSION; } else { say "$module => Does not exists"; } }
        
        kann man auch so schreiben:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9
        
        for my $module ( @ARGV ) { say "try to load $module"; eval{ require $module; 1; } and do { say "$module version: " . $module->VERSION; }; }
        
        (ungetestet)
        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-11-06 15:44
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Da tut sich bei mir leider garnichts. Kein Fehler, keine Ausgabe.
        10 print "Hallo"
        20 goto 10
        
        +10 replies
        
        sid burn
        
        2009-11-06 15:50
        
        User since
        2006-03-29
        1520 Artikel
        BenutzerIn
        
        Code: (dl )
        
        require $module
        
        Tut nicht das was du willst. Es interpretiert den Inhalt von $module als Dateipfad und versucht die Datei zu laden. Eine Möglichkeit ein Modulename zu laden wäre ein String eval mit "use"
        
        Code: (dl )
        
        eval "use $module"
        
        Ein anderer den Klassennamen an "::" zu splitten Pfade generieren und alle Verzeichnisse mit @INC durchgehen und die erste vorhandene Datei mit "require" laden.
        
        Ansonsten hatte ich eine leichtere version davor mit String eval gehabt.
        
        http://sidburn.de/cgi-bin/gitweb.cgi?p=bin.git;a=b...
        
        Allerdiengs gibt das wenn man einen unbekannten Namen eingibt ein warning aus "Uninitialized value" blabla.
        
        Korrekt müsste man noch "if ($@) { print "Modul does not exists" } else { print $module->VERSION }" hinzufügen. Als ich das überarbeitet hatte habe ich aber auch gleich Class::Load zum Laden genommen anstatt ein String eval.
        Last edited: 2009-11-06 15:55:59 +0100 (CET)
        Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
        
        +9 replies
        
        bianca
        
        2009-11-06 17:41
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Ja, das gefällt mir schon sehr gut, habs mal fertig gemacht:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
        
        #!/usr/bin/perl -w use strict; use warnings; use utf8; use open ':encoding(UTF-8)'; use open ':std'; for my $module ( @ARGV ) { eval "use $module"; if ($@) { print "Modul does not exists" } else { print "$module => ". $module->VERSION . "\n"; } }
        
        Code: (dl )
        
        1 2 3 4
        
        D:\Arbeit\perltest>perl module_inventar.pl Data::Dumper Data::Dumper => 2.121_04 D:\Arbeit\perltest>
        
        Nun noch die Frage: Wie kann ich das modifizieren, dass mir das Script von ALLEN in der Umgebung installierten Perl Modulen die jeweiligen Namen und Versionen ausgibt, damit ich quasi ein Inventar machen kann?
        
        Danke Dir
        10 print "Hallo"
        20 goto 10
        
        +8 replies
        
        pq
        
        2009-11-06 17:44
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        ExtUtils::Installed
        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
        
        +7 replies
        
        bianca
        
        2009-11-06 17:48
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2009-11-06T16:44:26 pq
        ExtUtils::Installed
        
        Geiler Tipp, vielen Dank.
        
        Würde gern den Versuch wagen, die Module ohne ein zusätzliches Modul zu inventarisieren.
        Wäre das, als würde man das Rad neu erfinden oder geht so?
        Denn eigentlich will ich den Admin mit sowas nicht nerven :)
        10 print "Hallo"
        20 goto 10
        
        +6 replies
        
        pq
        
        2009-11-06 18:01
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        2009-11-06T16:48:22 bianca
        Würde gern den Versuch wagen, die Module ohne ein zusätzliches Modul zu inventarisieren.
        
        wieso das? das modul ist im core. und den link zu corelist habe ich im forum schon mehrmals gepostet.
        
        http://perlpunks.de/corelist/version?module=ExtUti...
        
        einfach vorher gucken, bevor man sich die mühe macht, das zu installieren
        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
        
        +5 replies
        
        bianca
        
        2009-11-06 18:12
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Au weia, und jetzt komm ich auch noch, nach Deinen stark strapazierten Nerven von LE :)
        
        GEIL! Klappt super!
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        #!/usr/bin/perl -w use strict; use warnings; use ExtUtils::Installed; my $inst = ExtUtils::Installed -> new (); my @modules = $inst -> modules (); for (@modules) { print $_ . " == >" . $inst -> version ($_) . "<\n"; }
        
        Dabei gibt es aber manche Zeilen, da kommt keine Version. Was hat es damit auf sich? Mach ich da noch was falsch oder wo kommen die Einträge her?
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9
        
        HTML-Tree == >< HTML::Element::Extended == >< MIME-Base64-Scripts == >< MailTools == >< PPM3 == >< PodParser == >< Scalar::List::Utils == >< libnet == >< libwww-perl == ><
        
        10 print "Hallo"
        20 goto 10
        
        +3 replies
        
        murphy
        
        2009-11-06 19:21
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        Wenn ich das richtig sehe, liest ExtUtils::Installed die $VERSION-Variable der Module mittels MM->parse_version(...) aus dem ExtUtils::MakeMaker Paket aus.
        
        Zum einen ist es nicht zwingend so, dass jedes Modul überhaupt eine $VERSION-Variable gesetzt hat und zum anderen ist MM->parse_version(...) ein ziemlicher Hack und funktioniert nicht unbedingt immer. Folglich kann auch nicht zu jedem Modul eine Versionsnummer ermittelt werden.
        When C++ is your hammer, every problem looks like your thumb.
        
        +2 replies
        
        bianca
        
        2009-11-06 19:31
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Danke murphy. Läßt sich das irgendwie elegant und einfach heilen oder soll ich drauf pupsen?
        So wirklich brauche ich von den geposteten Einträgen auch keine Versionsnummer. PPM3 zum Beispiel ist ja nicht wirklich ein Modul. Und die anderen Einträge interessieren mich auch nicht wirklich.
        Wollte halt sichergehen, dass ich keinen Fehler drin hab.
        10 print "Hallo"
        20 goto 10
        
        murphy
        
        2009-11-07 01:48
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        Wenn es einen nicht stört, das Modul zu laden, kann man ExtUtils::MakeMaker umgehen und die Versionsnummer direkt aus der $VERSION-Variablen lesen, wie es in anderen Beiträgen bereits beschrieben wurde.
        
        Definiert das Modul jedoch diese Variable gar nicht, könnte man höchstens noch versuchen mittels Heuristik die Versionsnummer in der POD-Dokumentation oder in Kommentaren am Anfang der Datei aufzustöbern. Das wäre aber wohl nicht nur kompliziert sondern auch unzuverlässig.
        When C++ is your hammer, every problem looks like your thumb.
        
        Gast wer
        
        2009-11-07 13:05
        
        Warum hat sich topeg dazu noch nicht gemeldet?
        Immerhin hat er ein script im wiki gepostet: InhaltPerlSkripteDebug

View all threads created 2009-11-06 13:22.