HTTP Request auslesen (Perl/CGI)

[thread]16564[/thread]

HTTP Request auslesen

Tags: perl5 CGI Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+6 replies
Gast Kevin

2011-07-25 21:49
Hallo,

ich bin perl Neuling und hab ein wahrscheinlich banales Problem (oder ein unlösbares). Ich will den kompletten HTTP Request mit dem das Skript angefordert wurde auslesen. Bisher bin ich schon auf folgenden Code gestoßen, der immerhin die anghängten (POST) daten unverändert ausliest:
Code: (dl )

1 2

my $data; read(STDIN,$data,$ENV{'CONTENT_LENGTH'});
das ist aber nicht alles was ich brauche. Ich brauch den gesamten Request, so wie der Browser ihn an den Server abgeschickt hat,oder ein Skript das mir diesen Request aus %ENV wiederherstellt.(Werden überhaupt alle übergebenen Informationen in %ENV gespeichert?)

Vielen Dank schon mal,
Kevin
Last edited: 2011-07-25 22:11:13 +0200 (CEST)
- +5 replies
- rosti
  
  2011-07-25 22:15
  
  User since
  2011-03-19
  3492 Artikel
  BenutzerIn
  
  hi,
  
  beim POST liegen alle gesendeten Daten in STDIN und werden dort auch ausgelesen über CONTENT_LENGTH.
  
  Die Header, die ein User-Agent sendet, findest Du im Hash %ENV, die beginnen mit HTTP_
  
  Rolf
  - +4 replies
  - renee
    
    2011-07-25 22:18
    
    User since
    2003-08-04
    14371 Artikel
    ModeratorIn
    
    Bitte das Parsen von Parametern nicht selbst machen. Das ist zu Fehleranfällig. Wenn Du eine einfache Anwendung hast, nimm CGI.pm!
    
    @Kevin: Was willst Du überhaupt machen. Wenn Du uns das erklärst, können wir Dir vielleicht besser helfen.
    OTRS-Erweiterungen (http://feature-addons.de/)
    Frankfurt Perlmongers (http://frankfurt.pm/)
    --
    
    Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
    Perl-Entwicklung: http://perl-services.de/
    - rosti
      
      2011-07-25 22:20
      
      User since
      2011-03-19
      3492 Artikel
      BenutzerIn
      
      CGI.pm empfehle ich auch. Damit können auch die Request-Header geparst werden.
      
      Edit:
      Quote
      Bitte das Parsen von Parametern nicht selbst machen.
      
      Der OP schrieb, dass er STDIN auslesen möchte. Das geht so, wie er gepostet hat und das hat mit Parsen nichts zu tun und was daran fehleranfällig sein soll, kann ich nicht nachvollziehen.
      
      --Rolf
      
      Ach, noch was: Sobald ein CGI-Objekt über CGI.pm erstellt wurde, ist SDTIN "abgeräumt".
      Last edited: 2011-07-25 22:32:37 +0200 (CEST)
    - +2 replies
    - Gast Kevin
      
      2011-07-26 06:36
      
      Ich will den erhaltenen Request nahezu unverändert mit IO::Socket::INET an einen anderen Server weiterschicken. (Host und abgefragete Seite muss ich nätürlich ändern).
      ich hab mir jetz folgenden code gebastelt für den fall das alle Variablem alls HTTP_name in %ENV stehen:
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10
      
      my @envkeys= keys %ENV; my $i; my %request={}; for ($i=0;$i<@envkeys;$i++) { if($envkey[i]=~ /^HTTP_(.*)/) { $request{$1}=$ENV{$envkey[i]}; } }
      
      Alle gesuchten Variablen sollten dann ohne HTTP_ in request stehen.
      Konnte das Script leider noch nicht testen.
      schon mal vielen Dank,
      Kevin
      Last edited: 2011-07-26 07:43:46 +0200 (CEST)
      - rosti
        
        2011-07-26 08:13
        
        User since
        2011-03-19
        3492 Artikel
        BenutzerIn
        
        Quote
        Ich will den erhaltenen Request nahezu unverändert mit IO::Socket::INET an einen anderen Server weiterschicken.
        
        Du wirst eine Response erhalten, die es zu verarbeiten gilt. Dafür ist LWP besser geeignet, das nimmt Dir viel Arbeit ab. Eine HTTP-Response andererseits selbst aus einem Socket zu parsen, das geht zwar auch zu machen, erfordert jedoch viel Wissen um das Protokoll.
        
        Die Request-Header aus der ENV: Warum eine Schleife um die Keys? Die einzelnen Variablen sind direkt adressierbar.
        
        Sofern Du die Response nicht selbst verarbeiten möchtest, es gibt auf CPAN schöne Module, Stichwort Proxy.

View all threads created 2011-07-25 21:49.