LWP::UserAgent - bitte um Testing (gelöst) (Fragen zu Perl-Modulen)

[thread]19585[/thread]

LWP::UserAgent - bitte um Testing [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+8 replies

bianca

2015-03-26 13:26

User since
2009-09-13
7016 Artikel
BenutzerIn

user image

Wollte euch bitten, das Script mal so 5, 6 mal hintereinander in der Konsole zu starten und zu schauen, ob es jedes mal nach Versuch 1 stehen bleibt oder mehr Versuche braucht. Und unten die Versionsinfos und Betriebssystem bräuchte ich dann bitte dazu.
Würdet mir damit sehr helfen, Danke.

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new( ssl_opts => { verify_hostname => 1 } );

$ua->add_handler("request_send",  sub { print "\n\n***** Request *****\n"; shift->dump; return });
$ua->add_handler("response_done", sub { print "\n\n***** Response *****\n"; shift->dump; return });

my $stop = 0;
my $versuch = 0;

my %felder = ( foo => 'bar' );
while(!$stop) {
    $versuch ++;
    print "////// VERSUCH $versuch \\\\\\\\\\\\\n";
    my $response = $ua->post('https: //ssl. ibanrechner .de/http.html',\%felder);   # BLANKS ENTFERNEN!!!
    $stop = 1 if $response->is_success;
}
print "\n\n-------------------------------------------------------------\n";
print "Version IO::Socket::SSL: ".(defined $IO::Socket::SSL::VERSION ? $IO::Socket::SSL::VERSION : '- nicht inst. -')."\n";
print "Version Crypt::SSLeay: ".(defined $Crypt::SSLeay::VERSION ? $Crypt::SSLeay::VERSION : '- nicht inst. -')."\n";
print "Version LWP::UserAgent: ".$LWP::UserAgent::VERSION."\n";
print "Version Mozilla::CA: ".(defined $Mozilla::CA::VERSION ? $Mozilla::CA::VERSION : '- nicht inst. -')."\n";

Das war in msg #180369 scheinbar untergegangen.

10 print "Hallo"
20 goto 10

+5 replies
GwenDragon

2015-03-26 15:24

User since
2005-01-17
14746 Artikel
Admin1

Willst du jetzt wissen, mit welchen Perl es geht oder nur für eine ganz bestimmte Perl-Version und eine bestimmte Betriebssystem?
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +4 replies
- bianca
  
  2015-03-26 15:27
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  für Windows jedes verfügbare und Linux vielleicht irgend eines als Gegenprobe.
  10 print "Hallo"
  20 goto 10
  - +3 replies
  - GwenDragon
    
    2015-03-26 16:31
    User since
    2005-01-17
    14746 Artikel
    Admin1
    
    100 Zugriffe; + = OK, _ = Fehler.
    
    Windows 7 x64 mit 32bit Perls:
    
    Code: (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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
    
    Perl 5.014004 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ IO::Socket::SSL: 2.012 Crypt::SSLeay: 0.72 LWP::UserAgent: 6.13 LWP::Protocol::https: 6.06 Mozilla::CA 20141217 Perl 5.016003 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ IO::Socket::SSL: 1.84 Crypt::SSLeay: 0.64 LWP::UserAgent: 6.04 LWP::Protocol::https: 6.03 Mozilla::CA 20130114 Perl 5.018004 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ IO::Socket::SSL: 1.998 Crypt::SSLeay: 0.72 LWP::UserAgent: 6.06 LWP::Protocol::https: 6.06 Mozilla::CA 20130114 Perl 5.020002 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ IO::Socket::SSL: 2.012 Crypt::SSLeay: 0.72 LWP::UserAgent: 6.13 LWP::Protocol::https: 6.06
    
    Debian 7.8 x64
    
    Code: (dl )
    
    1 2 3 4 5 6 7
    
    Perl 5.014002 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ IO::Socket::SSL: 2.012 LWP::UserAgent: 6.13 LWP::Protocol::https: 6.03 Mozilla::CA 20141217
    
    Last edited: 2015-03-26 16:43:21 +0100 (CET)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +2 replies
    - bianca
      
      2015-03-26 16:33
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Moment, das heißt, in allen Fällen war der Request beim ersten mal direkt in Ordnung? Und das auch fünf mal hintereinander?
      10 print "Hallo"
      20 goto 10
      - GwenDragon
        
        2015-03-26 16:47
        
        User since
        2005-01-17
        14746 Artikel
        Admin1
        
        Ja, hintereinander. Aber jedesmal ein frischer $ua für jeden request erzeugt.
        
        Mit deinem programm aber genauso unprobelamtisch, egal wie der Request erzeugt wurde.
        Last edited: 2015-03-26 16:49:05 +0100 (CET)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
+2 replies

payx

2015-03-27 08:43

User since
2006-05-04
564 Artikel
BenutzerIn

user image

Hallo bianca,

bei mir hat es mit Perl 5.16.1 built for MSWin32-x64-multi-thread unter Win7 10x hintereinander bei Versuch 1 geklappt.

Code: (dl )

////// VERSUCH 1 \\\\\\


***** Request *****
POST https://ssl.ibanrechner.de/http.html
User-Agent: libwww-perl/6.04
Content-Length: 7
Content-Type: application/x-www-form-urlencoded

foo=bar


***** Response *****
HTTP/1.1 200 OK
Connection: close
Date: Fri, 27 Mar 2015 07:41:01 GMT
Server: Apache/2.2.22 (Debian)
Vary: Accept-Encoding
Content-Length: 2091
Content-Type: text/html; charset=utf-8
Client-Date: Fri, 27 Mar 2015 07:41:04 GMT
Client-Peer: 144.76.141.150:443
Client-Response-Num: 1
Client-SSL-Cert-Issuer: /C=GB/ST=Greater Manchester/L=Salford/O=COMODO CA Limite
d/CN=COMODO RSA Organization Validation Secure Server CA
Client-SSL-Cert-Subject: /C=DE/postalCode=49205/ST=Niedersachsen/L=Hasbergen/str
eet=Kiefernweg 8/O=Theano GmbH/OU=Multi-Domain SSL/CN=ssl.ibanrechner.de
Client-SSL-Cipher: ECDHE-RSA-AES128-GCM-SHA256
Client-SSL-Socket-Class: IO::Socket::SSL
X-Powered-By: PHP/5.4.39-0+deb7u1

\n\n\n
To use this http-based interface instead of the SOAP interface, please<ul><li>re
fer to the documentation of the SOAP interface for the names of functions and th
eir parameters, as well as the return values: https://ssl.ibanrechner.de/soap/</
li>
<li>send requests to this URL, passing the parameters with GET or POST to fields
 whose names are the same as the parameter names in the calls to SOAP functions.
<br/> For example, to calculate an IBAN, you could call:<br/> https://ssl.ibanre
chner.de/http.html?funct...
(+ 1579 more bytes not shown)


-------------------------------------------------------------
Version IO::Socket::SSL: 1.76
Version Crypt::SSLeay: - nicht inst. -
Version LWP::UserAgent: 6.04
Version Mozilla::CA: 20120309

HTH
Grüße
payx

bianca

2015-03-27 15:56

User since
2009-09-13
7016 Artikel
BenutzerIn

Hallo payx!
Danke fürs testen. Aber in der lib/Net/HTTP/Methods.pm scheint ja wirklich ein Fehler zu sein, der sich auf Win auswirkt.
https://github.com/libwww-perl/net-http/pull/11
Wieso wirkt sich der Fehler wieder scheinbar nur bei mir aus?
10 print "Hallo"
20 goto 10

View all threads created 2015-03-26 13:26.