HTTP::Request::Common verallgemeinern (Allgemeines zu Perl)

[thread]20342[/thread]

HTTP::Request::Common verallgemeinern

Tags: perl5 Ähnliche Threads

Leser: 9

Articles: hide open all | hide show old branches

+6 replies
Gast Andi123

2017-08-03 16:30

Ich möchte eine allgemeine Sub schreiben, um einen LWP::UserAgent-Request abzusetzen. Dabei möchte ich die Methode, die Parameter und wenn es benötigt wird, auch den Header übergeben.

Aktuell kann ich bei einer Ziel-URL HTTP::Request::Common nutzen kann.
Bei einer anderen URL muss ich aber HTTP::Request nutzen, da Headerfelder mit übergeben werden müssen.

Ich habe nun nichts konkretes gefunden, was ich an Headerfeldern setzen müsste, um einen HTTP::Request::Common-Aufruf über HTTP::Request abzusetzen.

Weiß jemand Rat?

Danke
Last edited: 2017-08-03 16:52:15 +0200 (CEST)
- styx-cc
  
  2017-08-03 21:43
  
  User since
  2006-05-20
  533 Artikel
  BenutzerIn
  
  Hi.
  
  Du kannst den Header doch direkt in HTTP::Request::Common setzen!?
  
  Gruß
  Pörl.
- +2 replies
- bianca
  
  2017-08-04 07:36
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  Verstehe das Problem nicht. Ich mache alle Requests mit HTTP::Request::Common — das sind inzwischen einige und ziemlich verschiedene Ziele im Intra- und Internet.
  
  Beispiel für ein Reboot der FRITZ!Box:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  require HTTP::Request::Common; my $post_request = HTTP::Request::Common::POST( $url_geraet.'/data.lua', Content_Type => 'application/x-www-form-urlencoded', Content => [ lang => 'de', no_sidrenew => '', oldpage => '/system/reboot.lua', reboot => '', sid => $sid, xhr => 1, ], ); my $resp = $mech->request($post_request);
  
  Zeig mal ein konkretes Beispiel wo du denkst, du musst zwingend HTTP::Request benutzen.
  10 print "Hallo"
  20 goto 10
  - Gast Andi123
    
    2017-08-04 10:17
    Aus Biancas Beispiel habe ich das erst mal so zusammengestellt
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11
    
    sub MakeRequest { my $url = shift; my %header = shift; my %content = shift; my $request = HTTP::Request::Common::POST( $url, ???? Content_Type => 'application/x-www-form-urlencoded', ????? Content => %content, ); my $ua = LWP::UserAgent->new; return $ua->request($request);
    
    Bei der Zeile mit den Fragezeichen ist mir noch unklar, wie ich die Headerdaten einfüge. Zerlege ich dazu den Hash %header und führe dann alle Einträge einzeln auf oder kann ich den Hash direkt mit bspw. Header => %header, übergeben.
    
    Und mein "Problem" ist eben, was ich mache, wenn ich keine Headerdaten übertragen muss.
    Das sieht in meinem Code bisher (ohne Sub) so aus my $request = POST( $url, \%content);
    
    Ich würde das dann um ein 'undef' erweitern und dann so an die Sub übergeben my $response = MakeRequest( $url, undef, \%content);
    In der Sub frage ich dann ab, ob %header gesetzt ist oder nicht und je nach dem dann die Headerdaten einfügen?
    
    Oder gibt es dann eine Art Standardheader, den ich an HTTP::Request::Common übergeben kann?
    Last edited: 2017-08-04 11:14:27 +0200 (CEST)
- +2 replies
- Gast Andi123
  
  2017-08-04 09:06
  Hm, ich hatte das so verstanden, dass ich mit HTTP::Request::Common keine Header setzen kann, da Standardheader voreingestellt sind.
  
  Gesetzt werden muss all das hier:
  
  Code (perl): (dl )
  
  1 2 3
  
  $request->content_type('application/json; charset=utf-8'); $request->header(accept => 'application/json'); $request->authorization_basic($acountUsername, $acountPassword);
  
  Komplett sieht das, was ich mit HTTP::REQUEST aufrufe, so aus
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  my $request = HTTP::Request->new(POST => $url); $request->content_type('application/json; charset=utf-8'); $request->header(accept => 'application/json'); $request->authorization_basic($acountUsername, $acountPassword); $request->content(JSON->new->encode(%content));
  
  Last edited: 2017-08-04 11:14:46 +0200 (CEST)
  - Linuxer
    
    2017-08-04 11:18
    
    User since
    2006-01-27
    3891 Artikel
    HausmeisterIn
    
    Das ist (IMHO) etwas schwer aus der Doku zu erkennen, jedenfalls wenn man da nur flüchtig drüber schaut und vor allem nicht die Überschriften genau liest.
    
    Header können gesetzt werden:
    
    perldoc HTTP::Request::Common
    ...
    GET $url
    GET $url, Header => Value,...
    ...
    POST $url
    POST $url, Header => Value,...
    POST $url, $form_ref, Header => Value,...
    POST $url, Header => Value,..., Content => $form_ref
    POST $url, Header => Value,..., Content => $content
    ...
    
    Last edited: 2017-08-04 15:09:49 +0200 (CEST)
    meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
    Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View all threads created 2017-08-03 16:30.