Problem mit version (gelöst) (Fragen zu Perl-Modulen)

[thread]15688[/thread]

Problem mit version [gelöst]

Leser: 17

Articles: hide open all | hide show old branches

+12 replies
bianca

2010-11-29 19:11
User since
2009-09-13
7016 Artikel
BenutzerIn
Guten Abend!
Habe hier eine etwas merkwürdige Situation, die ich mir nicht erklären kann und bitte Euch um Hilfe.

Folgendes Script:
Code (perl): (dl )

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

#!/usr/bin/perl -w use strict; use warnings; use IO::Handle; STDOUT -> autoflush (1); use version; my ($inst,@modules); eval 'use ExtUtils::Installed; $inst = ExtUtils::Installed -> new (); @modules = $inst -> modules ();'; if (scalar @modules) { my $zeile = 0; for my $modul (sort {lc $a cmp lc $b} @modules) { print "Bearbeite Modul '$modul' und versuche, Version zu ermitteln\n"; my $version = $inst -> version ($modul); print "Version von '$modul': $version\n" if !defined $version || $version eq '' || $modul eq 'Class::Std' || $modul eq 'version'; } }
Dieses Script läuft bei mir unter Windows XP und Win 7 jeweils mit aktuellem Strawberry problemlos und ohne zu murren durch.

Auf einem Linux mit Perl v5.8.5 built for i686-linux bekomme ich folgende Ausgabe:
Code: (dl )

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

Bearbeite Modul 'Algorithm::C3' und versuche, Version zu ermitteln Bearbeite Modul 'Algorithm::Diff' und versuche, Version zu ermitteln Bearbeite Modul 'AppConfig' und versuche, Version zu ermitteln Bearbeite Modul 'Archive::Tar' und versuche, Version zu ermitteln Bearbeite Modul 'Archive::Zip' und versuche, Version zu ermitteln Bearbeite Modul 'Array::Compare' und versuche, Version zu ermitteln Bearbeite Modul 'Authen::SASL' und versuche, Version zu ermitteln Bearbeite Modul 'B::Hooks::EndOfScope' und versuche, Version zu ermitteln Bearbeite Modul 'Bit::Vector' und versuche, Version zu ermitteln Bearbeite Modul 'Carp::Clan' und versuche, Version zu ermitteln Bearbeite Modul 'CGI' und versuche, Version zu ermitteln Bearbeite Modul 'CGI::IDS' und versuche, Version zu ermitteln Bearbeite Modul 'Class::Accessor' und versuche, Version zu ermitteln Bearbeite Modul 'Class::C3' und versuche, Version zu ermitteln Bearbeite Modul 'Class::Data::Inheritable' und versuche, Version zu ermitteln Bearbeite Modul 'Class::MOP' und versuche, Version zu ermitteln Bearbeite Modul 'Class::Singleton' und versuche, Version zu ermitteln Bearbeite Modul 'Class::Std' und versuche, Version zu ermitteln Invalid version format (version required) at test.pl line 15.
Das erweckt auf mich den Eindruck als gäbe es ein Problem mit der Versionsermittlung für Class::Std. Auf Win ist das jedoch kein Problem, da kommt als Version die 0.011 heraus.

Das Modul version ist sowohl auf Linux als auch auf Windows überall die 0.86.
Jemand eine Idee, warum nur auf Linux die Sache an der Stelle mit Invalid version format (version required) at test.pl line 15 abbricht?

Vielen Dank

Edit: Ergänzend möchte ich noch sagen, dass ich das Modul Class::Std extra auf den beiden Win-Kisten nachinstalliert habe in der Hoffnung, die Fehlersituation nachstellen und eine Lösung finden zu können. Klappt aber nicht. Der Fehler tritt unter Windows nicht auf. Warum nicht?

Noch ein Hinweis: Auf Linux war vorher das Modul version in der Version 0.74 installiert und diese hatte seinerzeit für Class::Std die Versionsnummer 0.0.9 ermittelt ohne Fehler.
Class::Std wurde auf dem Linux nicht geupdatet, nur version wurde auf 0.86 angehoben. Kann es sein, dass version nun die 0.0.9 nicht mehr als gültige Version erkennt?
Last edited: 2010-11-29 19:18:19 +0100 (CET)
10 print "Hallo"
20 goto 10
- +2 replies
- GwenDragon
  
  2010-11-29 19:51
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Den Fehler habe ich bei mir mit DBD::Pg.
  
  Code (perl): (dl )
  
  use version; our $VERSION = qv('2.17.2');
  
  Ich weiß nicht wie ich die Doku zu qv beurteilen muss, aber qv lässt danach nur quoted strings zu, ob das nun " oder nur ' ist, keine Ahnung.
  //EDIT2: Nee, unter Windows ist es egal ob " oder ', das klappt.
  
  //EDIT: Ja, mit version 0.82.
  Last edited: 2010-11-29 19:58:59 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - bianca
    
    2010-11-29 19:55
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    In der gleichen Konstellation?
    Windows = OK
    Linux = Fehler
    mit version 0.86 ?
    10 print "Hallo"
    20 goto 10
- +8 replies
- GwenDragon
  
  2010-11-29 20:14
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Mal getestet und so gehts:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
  
  #!/usr/bin/perl -w use strict; use warnings; use IO::Handle; STDOUT -> autoflush (1); use version; my ($inst,@modules); eval 'use ExtUtils::Installed; $inst = ExtUtils::Installed -> new (); @modules = $inst -> modules ();'; if (scalar @modules) { my $zeile = 0; for my $modul (sort {lc $a cmp lc $b} @modules) { print "Bearbeite Modul '$modul' und versuche, Version zu ermitteln\n"; my $version; $version = $inst -> version ($modul); print "Version von '$modul': $version\n" if !defined $version #or $version eq '' or $modul eq 'Class::Std' or $modul eq 'version'; } }
  
  Der Bösewicht ist $version eq ''. ExtUtils::Installed::version liefert eine Versionsnummer, deswegen kannst du es nicht mit einem Leerstring vergleichen.
  Last edited: 2010-11-29 20:16:44 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - bianca
    
    2010-11-29 20:20
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2010-11-29T19:14:20 GwenDragon
    version liefert eine Versionsnummer, deswegen kannst du es nicht mit einem Leerstring vergleichen.
    
    Ist ja der Hammer!
    Tatsächlich!
    Aber irgendwie wirft das gerade mein Weltbild durcheinander. Wie kann es sein, dass ein einfacher if ... eq '' ... zu einem solchen Abbruch führen kann?
    Ich verstehe das nicht. Bitte um Erläuterung.
    Hatte mich schon gewundert über Zeile 15, dachte aber eher an die manchmal falsche Bezeilung bei den Fehlermeldungen.
    10 print "Hallo"
    20 goto 10
    - GwenDragon
      
      2010-11-29 20:24
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Ganz einfach, Versionstrings sind keine Zeichenketten.
      U:\>perl -e "print v1.20 eq "1.20" ? 'gleich' : 'ungleich'" ungleich
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - GwenDragon
      
      2010-11-29 20:29
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Dann schau mal das an, es zeigt dir was dann in $version wirklich drin ist:
      //EDIT:
      
      Code (perl): (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
      
      #!/usr/bin/perl -w use strict; use warnings; use IO::Handle; STDOUT -> autoflush (1); use version; use Data::Dumper; my ($inst,@modules); eval 'use ExtUtils::Installed; $inst = ExtUtils::Installed -> new (); @modules = $inst -> modules ();'; if (scalar @modules) { my $zeile = 0; for my $modul (sort {lc $a cmp lc $b} @modules) { #print "Bearbeite Modul '$modul' und versuche, Version zu ermitteln\n"; my $version; $version = $inst -> version ($modul); #print "Version von '$modul': $version\n" # if !defined $version #or $version eq '' # or $modul eq 'Class::Std' # or $modul eq 'version'; print Dumper(\$version) if $modul eq "DBD::Pg" or $modul eq "CGI"; } }
      
      CGI $VAR1 = \'3.49'; DBD::Pg $VAR1 = \bless( { 'original' => '2.17.1', 'qv' => 1, 'version' => [ 2, 17, 1 ] }, 'version' );
      
      Da siehst du, dass nicht immer ein String zurück kommt, sondern manchmal ein Objekt.
      Last edited: 2010-11-29 20:32:46 +0100 (CET)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +4 replies
  - bianca
    
    2010-11-29 20:24
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Jaaaa, jetzt hab ich es gerafft. Danke Dir!
    10 print "Hallo"
    20 goto 10
    - +3 replies
    - GwenDragon
      
      2010-11-29 20:33
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Schau bitte nochmlas meine Erklärung an: msg #143204
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +2 replies
      - bianca
        
        2010-11-29 20:35
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Ja, gesehen und verstanden!
        Vielen Dank!
        Ich frage nur noch auf !defined ab sonst nichts mehr.
        10 print "Hallo"
        20 goto 10
        
        GwenDragon
        
        2010-11-29 20:36
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Data::Dumper ist ein guter Freund zum Ansehen der Variablen bei Merkwürdigkeiten oder eben der Perl-Debugger. ;)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- topeg
  
  2010-11-29 20:31
  
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  
  Aber Vorsicht.
  "ExtUtils::Installed" verlässt sich darauf dass die module über cpan installiert wurden und in der .packlist stehen. Wenn per "make" oder über ein Paketmanagenment auf Linux installiert wurde dann tauchen die Pakete dort nicht auf.

View all threads created 2010-11-29 19:11.