IO::Uncompress::Gunzip und require() (gelöst) (Fragen zu Perl-Modulen)

[thread]19916[/thread]

IO::Uncompress::Gunzip und require() [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 10

Articles: hide open all | hide show old branches

+5 replies
bianca

2015-12-07 07:59
User since
2009-09-13
7016 Artikel
BenutzerIn
Guten Morgen!

Warum wirft der folgende Code einen Fehler?
Code (perl): (dl )

1 2 3 4 5 6 7

#!/usr/bin/perl use strict; use warnings; use 5.010; require IO::Uncompress::Gunzip; IO::Uncompress->import(qw(gunzip $GunzipError)); gunzip 'x' => 'y';
IO::Uncompress::Gunzip->import(qw(gunzip $GunzipError)); und require IO::Uncompress; bringen das selbe Ergebnis.

Wenn ich oben das require() durch use IO::Uncompress::Gunzip qw(gunzip $GunzipError); ersetze ist alles in Ordnung. Wieso lässt sich bei diesem Modul nichts import'en? Besser gefragt: gibt es eine Möglichkeit, dieses Modul zu require'n anstatt zu use'n?
10 print "Hallo"
20 goto 10
- +4 replies
- Raubtier
  
  2015-12-07 10:29
  
  User since
  2012-05-04
  1083 Artikel
  BenutzerIn
  
  Weil das use sozusagen während der Compilezeit schon ausgeführt wird, kann es den nachfolgenden Code bzw. die Syntax des nachfolgenden Codes beeinflussen.
  
  Du musst:
  a) natürlich IO::Uncompress::Gunzip->import nehmen
  b) in dem nicht-use-Fall runde Klammern um die gunzip-Argumente setzen, da Perl ohne use noch nicht weiß, dass gunzip eine Funktion ist.
  - +3 replies
  - bianca
    
    2015-12-07 11:13
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Aaah, sehr gut, danke dir! Wieder eine Variante die ich m. W. bisher nicht hatte.
    
    Code:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10
    
    #!/usr/bin/perl use strict; use warnings; use 5.010; require IO::Uncompress::Gunzip; IO::Uncompress::Gunzip->import(qw(gunzip $GunzipError)); if (gunzip('x' => 'y')) { } else { die "gunzip failed: $GunzipError\n" }
    
    Jetzt noch eine Winzigkeit Global symbol "$GunzipError" requires explicit package name at test.pl line 10.
    
    Wie bekomme ich das hin? Hab vorher ein my $GunzipError und auch ein IO::Uncompress::Gunzip->import(my $GunzipError) versucht. Alles ohne Erfolg.
    10 print "Hallo"
    20 goto 10
    - +2 replies
    - Raubtier
      
      2015-12-07 12:18
      
      User since
      2012-05-04
      1083 Artikel
      BenutzerIn
      
      Entweder "no strict" oder, wie die Fehlermeldung sagt, den vollen Namen nehmen: $IO::Uncompress::Gunzip::GunzipError.
      
      Das ist dasselbe Problem wie mit der Funktion: wenn Perl die Zeile parst, ist das import(...) ja noch nicht erfolgt (anders als bei use). Daher gibts die Variable aus Sicht von Strict noch nicht.
      Last edited: 2015-12-07 12:20:44 +0100 (CET)
      - bianca
        
        2015-12-07 12:30
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Ja, das hätte ich wissen müssen, das hatte ich schon mal.
        Tut mir leid, da fehlt manchmal der Gedankensprung.
        
        Danke dir vielmals!
        10 print "Hallo"
        20 goto 10

View all threads created 2015-12-07 07:59.