formatierte Textübergabe per LWP::UserAgent möglich? (gelöst) (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]16854[/thread]

formatierte Textübergabe per LWP::UserAgent möglich? [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+9 replies
a_abels

2011-10-25 13:53
User since
2010-07-11
90 Artikel
BenutzerIn
Hallo zusammen,

in meinem Skript übergebe ich die Werte:
Code: (dl )

1 2 3 4 5 6

my $response = $ua->post($url, [ 0=>0, 1=>1, 2=>2 ]);
Diese kommen beim Kunden so an:
Code: (dl )

0=0&1=1&2=2
Hierbei handelt es sich um das URL-Encoded Format.
Kann ich auch einen "formatierten" Text übergeben? Gewünscht wäre sowas:
Code: (dl )

1 2 3

0=0 1=1 2=2
Zur Vollständigkeit nochmal mein ganzes Skript:
Code: (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

use strict; use warnings; use LWP::UserAgent; my $pw_ticketsystem='abcdefg'; my $us_ticketsystem='1234567'; my $url = "https://url/CallLog"; my $response; my $ua = LWP::UserAgent->new; $ua->requests_redirectable(undef); # Redirects ausschalten! $ua->credentials("url-server:443", "realm", $us_ticketsystem, $pw_ticketsystem); $ENV{HTTPS_PROXY} = 'proxyserver'; $ENV{HTTPS_PROXY_USERNAME} = 'username'; $ENV{HTTPS_PROXY_PASSWORD} = 'passsword'; my $response = $ua->post($url, [ 0=>0, 1=1, 2=2 ]); print $response->status_line;
mfg André
- +4 replies
- Linuxer
  
  2011-10-25 14:08
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Schon mal in die perldoc LWP::UserAgent gesehen? Da stehen interessante Sachen zur post()-Methode.
  
  Unter anderem ist da zu lesen, dass die POST-Methode aus HTTP::Request::Common verwendet wird.
  
  Dort findet man auch die Hinweise, dass standardmäßig application/x-www-form-urlencoded kodiert wird.
  Es findet sich dort auch eine Beschreibung, wie man die Kodierung umstellen kann auf multipart/form-data.
  
  edit: Versionsabhängige Links korrigiert. Danke für den Hinweis.
  Last edited: 2011-10-25 15:14:31 +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!
  - pq
    
    2011-10-25 14:11
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    OT: du kannst das mod-tag verwenden, um direkt auf ein modul zu verlinken. das hat den vorteil, dass du nicht eine bestimmte version verlinken musst.
    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
  - a_abels
    
    2011-10-25 15:52
    User since
    2010-07-11
    90 Artikel
    BenutzerIn
    
    Hi Linuxer,
    
    ich habe es jetzt folgendermaßen (hoffentlich) gelöst:
    
    Code: (dl )
    
    1 2 3 4 5
    
    ... my $transmitted_data = "0=0\n1=1\n2=2"; ...... my $response = $ua->post($url, $transmitted_data); ....
    
    Beim Kunden kommt dann folgendes an:
    
    Code: (dl )
    
    1 2 3
    
    0=0 1=1 2=2
    
    Das sollte also meine Lösung sein. Mal schauen, was der Kunde morgen dazu sagt!!!???
    
    Vielen Dank für Euren input.
    
    mfg André
  - rosti
    
    2011-10-25 20:16
    
    User since
    2011-03-19
    3473 Artikel
    BenutzerIn
    
    Die LWP und HTTP::Request ist ok. Aber was die LWP-Family als Content-Type in den Request-Header schreibt, ist doch völlig egal: Serverseitig wird ein POST aus STDIN gelesen und da kann drinstehen was will ;)
    
    Das sind einfach nur Bytes. Du musst nur dafür sorgen, dass der Empfänger weiß, was er damit anfangen soll, eine solche Mitteilung kann z.B. in einen eigenen Request-Header.
    
    Rosti
    
    PS/Edit: use Net::HTTP;
    Last edited: 2011-10-25 21:26:17 +0200 (CEST)
- +4 replies
- GwenDragon
  
  2011-10-25 17:20
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Je nachdem wie die Daten angeliefert werden dürfen.
  Hier als Schnippsel für den Content-Type multipart/form-data.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  
  use LWP::UserAgent; use HTTP::Request::Common qw/POST/; $ENV{HTTP_PROXY} = 'http://127.0.0.1:8888'; my $ua = LWP::UserAgent->new; $ua->env_proxy; $ua->request(POST 'http://example.org/url/', Content_Type => 'multipart/form-data', Content => [ '0=0', '1=1', '2=2' ] );
  
  Ach, wie liest es der Kunde denn ein?
  Wenn es wirklich der reine Text gesendet werden soll, dann muss der Request so sein:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  $ua->request(POST 'http://example.org/url/', Content_type => 'text/plain', Content => "0=0\n1=1\n2=2" );
  
  Last edited: 2011-10-25 17:31:19 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - a_abels
    
    2011-10-25 18:55
    
    User since
    2010-07-11
    90 Artikel
    BenutzerIn
    
    Mal sehen was morgen beim Kunden herauskommt...
    
    mfg André
  - +2 replies
  - a_abels
    
    2011-10-26 12:02
    User since
    2010-07-11
    90 Artikel
    BenutzerIn
    
    Hallo,
    
    ich habe das Ziel erreicht!!! Formatierung stimmt.
    
    Code: (dl )
    
    1 2 3 4 5 6 7
    
    $ua->request(POST 'http://example.org/url/', Content_type => 'text/plain', Content => "0=0 1=1 2=2" );
    
    Ein
    
    Code: (dl )
    
    \n
    
    für den Zeilenumbruch war nicht nötig. Ich gehe aus, dass beim
    
    Code: (dl )
    
    text/plain
    
    der kommende Text so genommen wird, wie er erscheint.
    
    Dank Eurer Hilfe alles wieder mal alles in Ordnung. Vielen Dank.
    
    mfg André
    
    PS: gern würde ich zu Lösungen beitragen, jedoch kann ich das noch nicht :(
    Aber vielleicht kommt die Zeit ja auch noch :))
    - pq
      
      2011-10-26 12:05
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      Code (perl): (dl )
      
      1 2 3 4
      
      "a b c "
      
      ist in perl dasselbe wie
      
      Code (perl): (dl )
      
      "a\nb\nc\n"
      
      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

View all threads created 2011-10-25 13:53.