Mit Hilfe von [libwww](https://metacpan.org/dist/libwww-perl) und [HTTP-Message](https://metacpan.org/dist/HTTP-Message)
lassen sich HTTP Requests recht einfach lösen.

[Beispiel:](https://metacpan.org/pod/HTTP::Request)

    #!/usr/bin/env perl
     
    use strict;
    use warnings;
     
    use HTTP::Request ();
    use JSON::MaybeXS qw(encode_json);
     
    my $url = 'https://www.example.com/api/user/123';
    my $header = ['Content-Type' => 'application/json; charset=UTF-8'];
    my $data = {foo => 'bar', baz => 'quux'};
    my $encoded_data = encode_json($data);
     
    my $r = HTTP::Request->new('POST', $url, $header, $encoded_data);
    # at this point, we could send it via LWP::UserAgent
    # my $ua = LWP::UserAgent->new();
    # my $res = $ua->request($r);

Was ist wenn man nun variable URLs hat bei denen man nicht weiß wie viel an Daten diese zurück gibt?
Der [Content-Length Header](https://developer.mozilla.org/en-US/docs/Web/HTTP/Headers/Content-Length) ist kein Zwang
und daher [nicht immer verfügbar](https://www.rfc-editor.org/rfc/rfc9110.html#name-content-length).

Nun gibt es zwei Möglichkeiten.

Eine [eigene callback](https://metacpan.org/dist/libwww-perl/view/lib/LWP/UserAgent.pm#get) Methode nutzen:

    my $req = HTTP::Request->new(GET => $url, $request_headers);
    my $res = $ua->request($req, \&getCallback);
    if ($res->is_success) {
         if($res->header('X-Died')) {
            say "Aborted, too big.";
         }
    }

    sub getCallback {
        my ( $chunk, $res, $proto ) = @_;
        $fetchedData .= $chunk;
        if(length($fetchedData) > 100000) {
            die();
        }
        # do something with the data.
    }

Oder die Option [max_size](https://metacpan.org/dist/libwww-perl/view/lib/LWP/UserAgent.pm#max_size) verwenden:

    my $ua = LWP::UserAgent->new();
    $ua->max_size(100000);
    my $req = HTTP::Request->new(GET => $url, $request_headers);
    my $res = $ua->request($req);
    if ($res->is_success) {
        if($res->header('Client-Aborted')) {
            say "Aborted, too big.";
        }
    }

Erstere bekam ich nicht richtig zum Laufen. Zweitere funktionierte ohne Probleme. Man darf nicht vergessen auf den
speziellen Header zu reagieren. Ohne dies bringt der callback oder max_size nix.

Sep 09 2024 © https://www.bananas-playground.net 2000 - 2024