HTTP::Request::Params ? WO ???? (Fragen zu Perl-Modulen)

[thread]19568[/thread]

HTTP::Request::Params ? WO ????

Tags: perl5 Ähnliche Threads

Leser: 11

Articles: hide open all | hide show old branches

Teilbaum:
Werte aus sub zurück geben (7 Artikel) 2015-03-23 18:31

+18 replies
Gast Verzweifelter

2015-03-20 16:29

Hallo PERL Gemeinde,

ich brauche für eines meiner Projekte unbedingt das Modul
HTTP::Request::Params. Ich verzweifele hier gerade, weil
es das bei mir nicht gibt. Weder im PERL Package Manager,
oder sonst wo. Da das Script zur Zeit auf Windows läuft,
ist eine manuelle Installation über "perl Makefile.PL"
usw. leider nicht machbar. Was mich wundert ist, dass im
PPM es nicht angezeigt wird. Die dort aufgelisteten
( mittlerweile über 7000 Pakete ) verweisen ja alle auf
CPAN :

http://search.cpan.org/~cwest/HTTP-Request-Params-...
lib/HTTP/Request/Params.pm

Wie bekomme ich das Modul auf meinen Rechner ? Ich hoffe,
ihr habt eine Idee.

VG
Verzweifelter

modedit Editiert von GwenDragon: Typo bei Modulnamen korrigiert
Last edited: 2015-03-20 16:52:59 +0100 (CET)
- +12 replies
- GwenDragon
  
  2015-03-20 16:46
  
  User since
  2005-01-17
  14898 Artikel
  Admin1
  
  Hast du denn die Module auf dem Rechner, die mit installiert werden müssen?
  CGI
  Class::Accessor::Fast
  Email::MIME::ContentType
  Email::MIME::Modifier
  HTTP::Request
  HTTP::Request::Common
  
  Siehe http://deps.cpantesters.org/?module=HTTP%3A%3ARequ...
  Last edited: 2015-03-20 16:49:04 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +11 replies
  - Gast Verzweifelter
    
    2015-03-20 17:49
    Hi Gwen,
    
    erst mal vielen Dank für die Rückmeldung. Der Status
    der Pakete ist :
    
    CGI - Installiert ...
    Class::Accessor::Fast; - Installiert ...
    Email::MIME::ContentType - Installiert ...
    Email::MIME::Modifier - Installiert ...
    HTTP::Request - Installiert ...
    HTTP::Request::Common - Installiert ...
    
    Von daher ist das in Ordnung, oder ?
    
    Ich habe jetzt die Params.pl in das entsprechende
    Verzeichnis kopiert. Es funktioniert nun zwar, nur
    habe ich noch eine Frage zur Ausgabe :
    
    Und sind es ja laut der Dokumentations bei der Ausgabe
    Hashes, wenn ich die Parameter also ausgebe, z. B.
    so :
    
    Code: (dl )
    
    1 2 3
    
    my $Anfrage_Parameter = HTTP::Request::Params -> new( { req => $Anfrage_POST, } ); my $params = $Anfrage_Parameter-> params;
    
    dann bekomme ich ja Werte wie z. B. HASH(0x295b534).
    Wie mache ich diese klar lesbar, mit einer Funktion
    wie decoded_content ??
    
    Viele Grüße
    Verzweifelter
    Last edited: 2015-03-20 18:34:25 +0100 (CET)
    - +10 replies
    - GwenDragon
      
      2015-03-21 08:10
      
      User since
      2005-01-17
      14898 Artikel
      Admin1
      
      https://metacpan.org/pod/release/CWEST/HTTP-Request-Params-1.01/lib/HTTP/Request/Params.pm#params
      my $params = $parser->params;
      
      Returns a hash reference containing all the parameters. The keys in this hash are the names of the parameters. Values are the values associated with those parameters in the incoming query. For parameters with multiple values, the value in this hash will be a list reference. This is the same behaviour as the CGI module's Vars() function.
      
      Das ist dann so möglich:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13
      
      my $params = $Anfrage_Parameter-> params; # $params ist eine Hashreferenz my %parameter = %{$params}; # %parameter ist der Hash for my $key (keys %parameter) { # zu jeden einzelnen Schlüssel my @values; if (ref $parameter{$key} ) { # falls mehrere Werte, dann ist es eine Arrayreferenz @values = @{$parameter{$key}}; # Werte aus Referenz holen } else { # einzelner Wert @values = $parameter{$key}; } say $key, "=> ", join ", ",@values; # die Werte ausgeben }
      
      Das Holen der Werte aus dem Hash (Zeile 5-11) ist auch kürzer so möglich:
      my @values = ref($parameter{$key}) ? @{$parameter{$key}} : $parameter{$key};
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - Gast Verzweifelter / Glücklicher
        
        2015-03-23 10:50
        
        Hi Gwen,
        
        Danke Danke Danke. So funktioniert es einwandfrei.
        
        Viele Grüße
        Vezweifelter
        Last edited: 2015-03-23 12:06:27 +0100 (CET)
      - Gast Verzweifelter
        
        2015-03-23 12:03
        
        Subtree with 8 replies: Werte aus sub zurück geben
        
        Hi Gwen,
        
        Eine kleine Frage zu dem Code hätte ich noch. Und zwar
        verarbeite ich den Post ja in einer Sub und will die Werte
        anschließend über return(); zurückgeben. Das sieht im
        Moment so aus :
        
        Code: (dl )
        
        my ( $Monitoring_Inhalte_POST ) = &Monitoring_Server_POST( $Monitoring_Exporte_Parameter_GUI_I )
        
        Das funktioniert so ja einwandfrei, er gibt mir die Inhalte
        des Posts zurück die ich weiter verarbeiten kann, z. B. so :
        
        Code: (dl )
        
        1 2 3 4
        
        if( $Monitoring_Inhalte_POST =~ /Oberflaeche_I/ ) # Suche des Parameters "Oberflaeche_I" in Inhalte des POSTs { # Do Something }
        
        Nachdem ich nun die Parameter ja dank deine Code auslesen
        kann möchte ich die Werte entsprechend auch zurückgeben.
        
        Ein einfaches :
        
        Code: (dl )
        
        return( "$Monitoring_Inhalte_POST" , "$Monitoring_Parameter_Werte );
        
        bringt hier ja nichts. Ich habe bereits versucht das Array @EPROM_Parameter_Werte; aus der For Schleife zu lösen, allerdings
        ohne Erfolg.
        
        Hast du da vielleicht noch einen Tip ?
        
        Vielen Dank !
        
        Viele Grüße
        Verzweifelter
        
        Viele Grüße
        Vezweifelter
        
        modedit Editiert von GwenDragon: Subthread
        Last edited: 2015-03-23 15:41:27 +0100 (CET)
- Gast Verzweifelter
  
  2015-03-20 16:47
  
  Korrektur : Klar ist es das Modul HTTP::Request::Params, nicht HTTP::Requests::Params. :-)
  
  Viele Grüße
  Verzweifelter
  Last edited: 2015-03-20 16:49:34 +0100 (CET)
- GwenDragon
  
  2015-03-20 16:51
  
  User since
  2005-01-17
  14898 Artikel
  Admin1
  
  Da das Modul keinerlei zu kompilierende Inhalte hat, reicht es vielleicht die Datei http://cpansearch.perl.org/src/CWEST/HTTP-Request-... zu holen und im Lib-Verzeichnis von Perl unter site\lib\HTTP\Request\ zu kopieren.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- GwenDragon
  
  2015-03-23 16:58
  
  User since
  2005-01-17
  14898 Artikel
  Admin1
  
  Ich empfehl' dir mal was:
  1. Vor dem Schreiben von Code Programmaufbau planen
  2. Perl mit einem Buch wie Modern Perl lernen siehe http://www.onyxneon.com/books/modern_perl/index.ht...
  3. Zur Codeformatierung vor dem Veröffentlichen (egal wo!) perltidy benutzen
  
  Es ist ermüdend aus deinen Schnippseln Informationen herauszuziehen, das sind alles magere Informationen und niemand kann sich in dich reindenken, ob du gute Programmierfähigkeiten hast oder nicht.
  
  Bitet schau dich mal bei Grundlagen um unter:
  PerlFaq
  PerlTutorials
  http://learn.perl.org/
  http://perl-tutorial.org/
  http://perlmaven.com/
  http://learn.perl.org/docs/
  
  PS: Dein konfuses Vorgehen bindet mir gerade zu viel Zeit. Ich bin nicht deine unbezahlte Tutorin. Überlege dir mal, was du falsch machst.
  Last edited: 2015-03-23 18:00:44 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - pq
    
    2015-03-23 17:04
    
    User since
    2003-08-04
    12209 Artikel
    Admin1
    
    http://perl-tutorial.org/ wär da noch.
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- GwenDragon
  
  2015-03-23 18:32
  
  User since
  2005-01-17
  14898 Artikel
  Admin1
  
  Verschoben von Allgemeines zu Perl nach Fragen zu Perl-Modulen
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2015-03-20 16:29.