Thread [HTTP::Async] in Verbindung mit RewriteRule in der .htaccess (30 answers)
Opened by bianca at 2016-03-04 17:02

bianca
 2016-03-06 16:30
#184069 #184069
User since
2009-09-13
6975 Artikel
BenutzerIn

user image
Lösung:
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
#!/usr/bin/perl
use strict;
use warnings;
use 5.010;

my $generiere_objekt = sub {
    my ($var) = @_;
    if (!defined $$var) {
        $$var = HTTP::Async->new(
            timeout             => 10,
            max_request_time    => 15,
            cookie_jar          => defined,
        );
    }
};
my $async;
my $request_id = 0;

require HTTP::Async;
require HTTP::Request::Common;
my $request = HTTP::Request->new(
    'GET',
    'https://meine.domain/cgi-bin/meinscript.pl?key=val',
    HTTP::Headers->new(),
);
$generiere_objekt->(\$async);
my %ssl_options = (
    SSL_verify_mode => 0,
    blocking        => 0,
);
$async->ssl_options(\%ssl_options);
$request_id = $async->add($request);

if (defined $async) {
    while (my($response,$id) = $async->wait_for_next_response) {
        if ($response->is_success) { say $response->decoded_content; }
        else { say "Fehler ",$response->status_line; }
    }
}


GwenDragon: Nochmal herzlichen Dank!
Und wieso sind wir zwei eigentlich immer die Einzigen, die was mit TLS in Perl anfangen können? Benutzt das sonst keiner oder ist den anderen das zu doof? :)
10 print "Hallo"
20 goto 10

View full thread [HTTP::Async] in Verbindung mit RewriteRule in der .htaccess