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

a_abels

2011-10-25 13:53

User since
2010-07-11
90 Artikel
BenutzerIn
[default_avatar]

Hallo zusammen,

in meinem Skript übergebe ich die Werte:

Code: (dl )

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 )

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é