IO::Socket::SSL und require (gelöst) (Fragen zu Perl-Modulen)

[thread]19618[/thread]

IO::Socket::SSL und require [gelöst]

Tags: perl5 require IO::Socket::SSL Konstante SSL_VERIFY_CLIENT_ONCE importieren Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+19 replies
bianca

2015-04-14 17:10
User since
2009-09-13
6977 Artikel
BenutzerIn
Hallöchen!

Ich möchte das Modul IO::Socket::SSL nicht per use sondern erst zur Laufzeit per require laden. Gleichzeitig muss ich auch die Konstante SSL_VERIFY_CLIENT_ONCE aus dem Modul importieren.

Der Code, den ich beim Googeln am naheliegendsten fand ist dieser:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12

#!/usr/bin/perl use strict; use warnings; use Net::FTP; require IO::Socket::SSL; IO::Socket::SSL->import(SSL_VERIFY_CLIENT_ONCE); my $ftp = Net::FTP->new( 'irgendeinurl', SSL_verify_mode => SSL_VERIFY_CLIENT_ONCE, );
Der wirft aber leider
Quote
Bareword "SSL_VERIFY_CLIENT_ONCE" not allowed while "strict subs" in use at test.pl line 7.
Bareword "SSL_VERIFY_CLIENT_ONCE" not allowed while "strict subs" in use at test.pl line 9.
Execution of test.pl aborted due to compilation errors.

Was mache ich da falsch?
Im Grunde möchte ich use IO::Socket::SSL qw(SSL_VERIFY_CLIENT_ONCE) mit require schreiben. Aber wie?
10 print "Hallo"
20 goto 10
- +18 replies
- GwenDragon
  
  2015-04-14 17:32
  User since
  2005-01-17
  14533 Artikel
  Admin1
  Import braucht eine Liste!
  
  Statt
  
  Code (perl): (dl )
  
  1 2
  
  require IO::Socket::SSL; IO::Socket::SSL->import(SSL_VERIFY_CLIENT_ONCE);
  
  dann
  
  Code (perl): (dl )
  
  1 2 3 4
  
  BEGIN { require IO::Socket::SSL; IO::Socket::SSL->import( qw(SSL_VERIFY_CLIENT_ONCE) ); }
  
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +4 replies
  - bianca
    
    2015-04-14 17:40
    
    User since
    2009-09-13
    6977 Artikel
    BenutzerIn
    
    Danke GwenDragon!
    
    Wenn ich das mache braucht das Script über 7 Sekunden, bis es läuft. Dieses IO::Socket::SSL dauert eh so lang, normalerweise knapp über eine Sekunde, so viel wie kein anderes Modul auf dieser Welt. Dauert das bei euch auch so lang? Liegt das an meinem System? Wie lange lädt das bei euch?
    Und warum braucht die BEGIN{} Lösung mehr als die siebenfache Zeit? Ich hatte mir erhofft, das Modul erst zur Laufzeit zu laden, damit der Rest des Scripts durch das Laden am Anfang nicht gebremst wird.
    10 print "Hallo"
    20 goto 10
    - +3 replies
    - GwenDragon
      
      2015-04-14 17:53
      
      User since
      2005-01-17
      14533 Artikel
      Admin1
      
      7 Sekunden sind es bei unbekannter Domain für dein Skript.
      Maximal 2 Sekunden aber mit existenter Domain!
      
      openssls s_client braucht fast 3 Sekunden zum Aufbau einer Verbindung über TLS mit sicheren Chiffren.
      Last edited: 2015-04-14 17:55:41 +0200 (CEST)
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - +2 replies
      - bianca
        
        2015-04-14 17:55
        
        User since
        2009-09-13
        6977 Artikel
        BenutzerIn
        
        2 Sekunden sind auch viel zu viel. Was macht das Modul denn da?
        10 print "Hallo"
        20 goto 10
        
        GwenDragon
        
        2015-04-14 18:08
        
        User since
        2005-01-17
        14533 Artikel
        Admin1
        
        Komplett 2,4 Sekunden.
        Das conecten per TLS selbst braucht ca. 1,1 Sekunden.
        
        Module laden braucht Zeit.
        SSL aber auch.
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +13 replies
  - GUIfreund
    
    2015-04-14 20:29
    User since
    2011-08-08
    559 Artikel
    BenutzerIn
    
    2015-04-14T15:32:36 GwenDragon
    Statt
    
    Code (perl): (dl )
    
    1 2
    
    require IO::Socket::SSL; IO::Socket::SSL->import(SSL_VERIFY_CLIENT_ONCE);
    
    dann
    
    Code (perl): (dl )
    
    1 2 3 4
    
    BEGIN { require IO::Socket::SSL; IO::Socket::SSL->import( qw(SSL_VERIFY_CLIENT_ONCE) ); }
    
    Beide Kodes bewirken (abgesehen vom Syntaxfehler bei import im Originalkode) dasselbe: Einbinden des Moduls beim Kompilieren. Im OP heißt es aber
    Quote
    Ich möchte das Modul CPAN:IO::Socket::SSL nicht per use sondern erst zur Laufzeit per require laden.
    
    Also den BEGIN-Block weglassen.
    Gruß
    GUIfreund
    - +12 replies
    - bianca
      
      2015-04-15 06:21
      
      User since
      2009-09-13
      6977 Artikel
      BenutzerIn
      
      2015-04-14T18:29:33 GUIfreund
      Also den BEGIN-Block weglassen.
      
      Neee, denn genau da liegt mein Problem, dann schlägt nämlich der Compiler zu:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12
      
      #!/usr/bin/perl use strict; use warnings; use Net::FTP; require IO::Socket::SSL; IO::Socket::SSL->import( qw(SSL_VERIFY_CLIENT_ONCE) ); my $ftp = Net::FTP->new( 'irgendeinurl', SSL_verify_mode => SSL_VERIFY_CLIENT_ONCE, );
      
      Quote
      Bareword "SSL_VERIFY_CLIENT_ONCE" not allowed while "strict subs" in use at test.pl line 9.
      Execution of test.pl aborted due to compilation errors.
      
      10 print "Hallo"
      20 goto 10
      - +10 replies
      - Raubtier
        
        2015-04-15 10:22
        
        User since
        2012-05-04
        1054 Artikel
        BenutzerIn
        
        Naja, der Compiler compiliert ja schon, während SSL_VERIFY_CLIENT_ONCE noch nicht importiert ist.
        
        Lösungsmöglichkeit:
        SSL_VERIFY_CLIENT_ONCE() mit () verwenden
        Last edited: 2015-04-15 10:23:59 +0200 (CEST)
        
        +9 replies
        
        bianca
        
        2015-04-15 17:10
        
        User since
        2009-09-13
        6977 Artikel
        BenutzerIn
        
        2015-04-15T08:22:50 Raubtier
        Lösungsmöglichkeit:
        SSL_VERIFY_CLIENT_ONCE() mit () verwenden
        
        So?
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        #!/usr/bin/perl use strict; use warnings; use Net::FTP; require IO::Socket::SSL; my $ftp = Net::FTP->new( 'irgendeinurl', SSL_verify_mode => SSL_VERIFY_CLIENT_ONCE(), );
        
        Wirft:
        
        Quote
        Undefined subroutine &main::SSL_VERIFY_CLIENT_ONCE called at test.pl line 9.
        
        10 print "Hallo"
        20 goto 10
        
        +8 replies
        
        GwenDragon
        
        2015-04-15 17:16
        
        User since
        2005-01-17
        14533 Artikel
        Admin1
        
        import fehlt. ;)
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        require IO::Socket::SSL; IO::Socket::SSL->import(); my $ftp = Net::FTP->new( 'irgendeinurl', SSL_verify_mode => SSL_VERIFY_CLIENT_ONCE(), );
        
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        +7 replies
        
        bianca
        
        2015-04-15 17:19
        
        User since
        2009-09-13
        6977 Artikel
        BenutzerIn
        
        Ah Danke. Nützt mir aber nichts, ich warte nicht 8 Sekunden für jeden Start des Scripts.
        10 print "Hallo"
        20 goto 10
        
        +6 replies
        
        GwenDragon
        
        2015-04-15 17:25
        
        User since
        2005-01-17
        14533 Artikel
        Admin1
        
        Es dauert bei mir nur so lange, wenn die Domain für den FTP-Server nicht auflösbar ist.
        
        Du schreibst irgendeinurl, das ist falsch, da muss die Domain rein.
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        +5 replies
        
        bianca
        
        2015-04-16 17:04
        
        User since
        2009-09-13
        6977 Artikel
        BenutzerIn
        
        Ah, verstehe.
        Seltsam finde ich, dass beim URL 'test' der Scriptstart auch nur 2 Sekunden dauert. Müssten da nicht auch 8 Sekunden anfallen wie bei 'irgendeinurl'?
        10 print "Hallo"
        20 goto 10
        
        +4 replies
        
        GwenDragon
        
        2015-04-16 17:22
        
        User since
        2005-01-17
        14533 Artikel
        Admin1
        
        Kommt darauf an wie schnell irgendwelche Domains aufgelöst werden und ob irgendein PC, Gerät, Router oder eine Änderung der hosts auf deinem System nach test auflöst.
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        +3 replies
        
        bianca
        
        2015-04-17 19:02
        
        User since
        2009-09-13
        6977 Artikel
        BenutzerIn
        
        Auf dem selben System:
        
        Quote
        Ping-Anforderung konnte Host "test" nicht finden. Überprüfen Sie den Namen, und versuchen Sie es erneut.
        
        Kann auf Win7 Perl etwas auflösen, was ping nicht kann?
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        GwenDragon
        
        2015-04-17 19:37
        
        User since
        2005-01-17
        14533 Artikel
        Admin1
        
        Bei mir dauert ein ping test auch ca. 4 Sekunden.
        Also so wie Perl auch.
        
        Ich schaute mir mal das genauer an.
        Profiling ist hilfreich.
        
        Testcode a.pl:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        use strict; use warnings; use Net::FTP; require IO::Socket::SSL; IO::Socket::SSL->import(); my $ftp = Net::FTP->new( 'irgendeinurl', SSL_verify_mode => SSL_VERIFY_CLIENT_ONCE(), );
        
        Ein Profiling mit NYTProf mittels
        perl -d:NYTProf a.pl
        erzeugt eine nytprof.out
        draus wird mit nytprofhtml ein Verzeichnis erzeugt
        in dem die index.html fein zeigt wo es hakt.
        
        Heraus kopierte Information:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
        
        Top 15 Subroutines Calls P F Exclusive Inclusive Subroutine Time Time 2 2 1 4.85s 4.85s Socket::getaddrinfo (xsub) 1 1 1 1.34s 1.34s Net::SSLeay::CTX_new (xsub) 1 1 1 1.23s 1.23s Net::SSLeay::RAND_poll (xsub) 1 1 1 59.8ms 66.5ms IO::Socket::SSL::BEGIN@20 1 1 1 52.2ms 53.8ms Mozilla::CA::BEGIN@7 7 7 7 49.9ms 49.9ms XSLoader::load 1 1 1 49.8ms 49.8ms Net::SSLeay::CTX_load_verify_locations (xsub) 1 1 1 38.9ms 1.42s Net::FTP::BEGIN@31 1 1 1 22.9ms 62.2ms Mozilla::CA::BEGIN@6 1 1 1 20.7ms 21.4ms Mozilla::CA::BEGIN@8 1 1 1 19.3ms 1.55s main::BEGIN@7 54 54 23 16.7ms 18.7ms Exporter::import 1 1 1 15.0ms 40.0ms IO::Socket::SSL::BEGIN@259 1 1 1 12.6ms 70.2ms Net::FTP::BEGIN@22 1 1 1 10.7ms 11.2ms Net::FTP::BEGIN@20
        
        Da sind Socket::getaddrinfo und Net::SSLeay::* die Fresser.
        Last edited: 2015-04-17 20:09:40 +0200 (CEST)
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        bianca
        
        2015-04-19 07:08
        
        User since
        2009-09-13
        6977 Artikel
        BenutzerIn
        
        OK, Danke dir.
        10 print "Hallo"
        20 goto 10
      - GwenDragon
        
        2015-04-15 16:42
        
        User since
        2005-01-17
        14533 Artikel
        Admin1
        
        SSL_VERIFY_CLIENT_ONCE ist eine Konstante, die mit dem Pragma use constant erzeugt wird. Da das Modul constant die Konstanten als sub erzeugt, musst du dann wie Raubtier schon dir gesagt hat SSL_VERIFY_CLIENT_ONCE als Funktion SSL_VERIFY_CLIENT_ONCE() aufrufen.
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

View all threads created 2015-04-14 17:10.