Was sind das für Daten? (gelöst) (Allgemeines zu Perl)

[thread]19120[/thread]

Was sind das für Daten? [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+13 replies
bianca

2014-05-29 13:10
User since
2009-09-13
7016 Artikel
BenutzerIn
Wenn man folgendes Script ausführt wird ein scheinbarer Zeichensalat ausgegeben. Weiß jemand, was das ist? Ich hätte jetzt HTML Quelltext erwartet, wie man ihn auch im Browser sieht, wenn man diesen URL aufruft.
Code (perl): (dl )

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

#!/usr/bin/perl use 5.010; use strict; use warnings; use WWW::Mechanize; my $mech = WWW::Mechanize->new( cookie_jar => {}, ); my $response = $mech->get('https://www.dab-bank.de'); my $data = $response->content; say $data;
10 print "Hallo"
20 goto 10
- +2 replies
- kristian
  
  2014-05-29 13:14
  
  User since
  2005-04-14
  684 Artikel
  BenutzerIn
  
  ohne es mir anzusehen, versuchs mal mit decoded_content dann wird es auch entgzipped.
  - bianca
    
    2014-05-29 13:19
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2014-05-29T11:14:10 kristian
    decoded_content
    
    Treffer! Danke dir.
    10 print "Hallo"
    20 goto 10
- +10 replies
- bianca
  
  2014-06-04 13:24
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  Hierzu noch eine Frage.
  Wenn ich genau das gezeigte Script auf einem bestimmten Linux Webserver laufen lasse kommt:
  
  Quote
  Software error:
  
  Error GETing https: // www. dab-bank. de: Can't connect to www. dab-bank. de:443 at ...
  (Blanks eingefügt, damit der URL verschleiert ist.)
  
  Auf dem selben Server wo diese Meldung kommt funktioniert aber der Request zum selben Ziel mit wget
  
  Auf einem anderen Server gibt es mit dem Script keine Probleme, genau so wie bei mir lokal. Und wenn ich auf dem Fehlerserver eine andere https URL verwende klappt die auch.
  Parameter SSL_ca_file => Mozilla::CA::SSL_ca_file() bringt leider auch keine Abhilfe, es ändert sich dadurch nichts.
  Dann hab ich mal mein komplettes Perl Verzeichnis nach dem Vorkommen von connect in den Dateien durchsucht und es kamen keine Suchergebnisse. Also kommt die Fehlermeldung entweder nicht von Perl oder sie kommt aus einer Binärdatei.
  
  Ich habe also folgende Erkenntnisse:
  
  auf dem Problemserver funktionieren andere SSL Ziele, nur das eine und vermutlich auch noch andere bringen eine Fehlermeldung
  am Script scheint es nicht zu liegen, das wird woanders sauber ausgeführt
  an Zertifikaten scheint es nicht zu liegen, weil andere https Ziele funktionieren und der Parameter SSL_ca_file auch keine Wirkung zeigt
  am Server scheint es im Grundsatz auch nicht zu liegen, weil wget zum selben Ziel klappt
  am Ziel scheint es auch nicht zu liegen (vielleicht eine Robotsperre etc.), denn von woanders klappten die Requests ja
  
  Weiß jemand, wie ich die Ursache hier finden und beheben kann?
  
  Editiert von bianca: Punkt ergänzt
  Last edited: 2014-06-04 13:31:54 +0200 (CEST)
  10 print "Hallo"
  20 goto 10
  - +2 replies
  - pq
    
    2014-06-04 14:12
    
    User since
    2003-08-04
    12209 Artikel
    Admin1
    
    2014-06-04T11:24:48 bianca
    Dann hab ich mal mein komplettes Perl Verzeichnis nach dem Vorkommen von connect in den Dateien durchsucht und es kamen keine Suchergebnisse. Also kommt die Fehlermeldung entweder nicht von Perl oder sie kommt aus einer Binärdatei.
    
    es erstaunt mich immer wieder, was auf deinem rechner so alles möglich ist.
    LWP/Protocol/http.pm zeile 43:
    my $status = "Can't connect to $host:$port";
    das heisst, du hast nicht mal LWP installiert, wenn du das nicht findest.
    erstaunlich also, dass du überhaupt webseiten abrufen kannst.
    
    es bestünde jedoch die chance, dass du falsch gesucht hast. als nichtprogrammierer vielleicht auch nicht verwunderlich, deswegen wäre es sinnvoll, wenn du mitteilen würdest, was du wie durchsucht hast.
    (ich habe obige zeile mit ack ~/perlbrew/perls/perl-5.18.1/lib/ gefunden)
    
    LWP::Protocol::https ist installiert, ja?
    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
    - bianca
      
      2014-06-04 16:35
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2014-06-04T12:12:35 pq
      es erstaunt mich immer wieder, was auf deinem rechner so alles möglich ist.
      
      Nein, ich glaube, ich hab bei der Textsuche oben den Dateinamen versehentlich drin gelassen, dann sucht TotalCommander anscheinend den Text nur in dieser Datei.
      
      2014-06-04T12:12:35 pq
      LWP/Protocol/http.pm zeile 43:
      my $status = "Can't connect to $host:$port";
      
      Habs gefunden.
      
      2014-06-04T12:12:35 pq
      LWP::Protocol::https ist installiert, ja?
      
      Ja, Version 6.03
      
      OK, damit weiß ich jetzt, dass
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9
      
      my $sock = $self->socket_class->new(PeerAddr => $host, PeerPort => $port, LocalAddr => $self->{ua}{local_address}, Proto => 'tcp', Timeout => $timeout, KeepAlive => !!$conn_cache, SendTE => 1, $self->_extra_sock_opts($host, $port), );
      
      scheitert.
      Aber was kann die Ursache sein?
      10 print "Hallo"
      20 goto 10
  - +2 replies
  - GwenDragon
    
    2014-06-04 17:13
    User since
    2005-01-17
    14890 Artikel
    Admin1
    
    Was wird denn bei:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13
    
    !/usr/bin/perl use 5.010; use strict; use warnings; use WWW::Mechanize; my $mech = WWW::Mechanize->new( cookie_jar => {}, ); my $response = $mech->get('https://www.dab-bank.de/'); my $header = $response->headers->as_string; say $header; exit;
    
    gezeigt?
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - bianca
      
      2014-06-04 17:18
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2014-06-04T15:13:14 GwenDragon
      Was wird denn bei:
      
      Bei mir lokal ein riesiger Header. Auf dem problematischen Server das selbe wie immer "can't connect..".
      10 print "Hallo"
      20 goto 10
  - +2 replies
  - GwenDragon
    
    2014-06-04 17:14
    
    User since
    2005-01-17
    14890 Artikel
    Admin1
    
    Hast du installiert:
    IO::Socket::SSL
    Net::SSL
    LWP
    LWP::Protocol::https
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - bianca
      
      2014-06-04 17:20
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2014-06-04T15:14:16 GwenDragon
      Hast du installiert:
      IO::Socket::SSL
      Net::SSL
      LWP
      LWP::Protocol::https
      
      Ja, alles drauf.
      IO::Socket::SSL 1.76
      Net::SSL 2.85
      LWP 6.04
      LWP::Protocol::https 6.03
      
      Andere https Adressen funktionieren ja.
      10 print "Hallo"
      20 goto 10
  - +3 replies
  - GwenDragon
    
    2014-06-04 18:13
    User since
    2005-01-17
    14890 Artikel
    Admin1
    
    Bösartige Falle beim SSL-Protokoll.
    
    Schau!
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11
    
    $mech = WWW::Mechanize->new( cookie_jar => {}, ssl_opts => { SSL_version => 'SSLv2', #SSL_version => 'TLSv1', verify_hostname => 1, SSL_ca_path => '/etc/ssl/certs', } ); my $response = $mech->get('https://www.dab-bank.de'); say $response->status_line;
    
    ergibt:
    Error GETing https://www.dab-bank.de: Can't connect to www.dab-bank.de:443 at ssl-ba.pl line 17
    
    und
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11
    
    $mech = WWW::Mechanize->new( cookie_jar => {}, ssl_opts => { #SSL_version => 'SSLv2', SSL_version => 'TLSv1', verify_hostname => 1, SSL_ca_path => '/etc/ssl/certs', } ); my $response = $mech->get('https://www.dab-bank.de'); say $response->status_line;
    
    ergibt
    200 OK
    
    Probiers mal.
    
    //EDIT:
    leider sagt
    use IO::Socket::SSL qw(debug3);
    mit für besseres Debuggen des SSL-Verbindung wenig aus für Nicht-Profis.
    
    Zu den SSL_version siehe unter Methods bei IO::Socket::SSL
    
    Editiert von GwenDragon: Inline-Code wg. Auto-URL vom Forum; Hinweis auf debug-Modus bei IO::Socket::SSL
    Last edited: 2014-06-04 18:41:45 +0200 (CEST)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +2 replies
    - bianca
      
      2014-06-05 07:40
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Ja, mit
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7
      
      my $mech = WWW::Mechanize->new( cookie_jar => {}, ssl_opts => { SSL_version => 'TLSv1', SSL_ca_file => Mozilla::CA::SSL_ca_file(), }, );
      
      klappts.
      
      Danke dir vielmals!
      
      Hab ich denn eine Chance, dem Mechanize zu sagen, dass es von selbst TLS1 versuchen soll, wenn 2 nicht klappt oder muss ich mir dieses "Fallback" selbst bauen?
      10 print "Hallo"
      20 goto 10
      - bianca
        
        2014-06-05 07:55
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Jetzt weiß ich auch, was ich gestern falsch gemacht hab:
        
        Mein Versuch war:
        
        Code (perl): (dl )
        
        1 2 3 4
        
        my $mech2 = WWW::Mechanize->new( cookie_jar => {}, SSL_ca_file => Mozilla::CA::SSL_ca_file(), );
        
        Richtig ist:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        my $mech = WWW::Mechanize->new( cookie_jar => {}, ssl_opts => { SSL_ca_file => Mozilla::CA::SSL_ca_file(), }, );
        
        *manchmal......*
        
        Nochmal vielen Dank GwenDragon!!
        10 print "Hallo"
        20 goto 10

View all threads created 2014-05-29 13:10.