Thread speziellen Header parameter "X-Requested-With: XYZ". (6 answers)
Opened by perl-snaks at 2012-05-16 12:40

perl-snaks
 2012-05-18 17:18
#158407 #158407
User since
2012-04-19
54 Artikel
BenutzerIn
[default_avatar]
Hallo rosti vielen Dank für die Antwort. es hat einwandsfrei funktioniert.
Jetzt habe ein Problem und zwar, dass ich ein URL zusammenbauen möchte und aufrufen. Also die parameter werden von einem Formular mit der Post-Methode übertragen und sollen in uRL hinzugefügt werden und aufgerufen.
Code (perl): (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
28
29
30
31
32
33
34
35
36

use strict;
use LWP::UserAgent;
use HTTP::Request;

use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $cgi  = new CGI;
my $aktion = CGI::param('?name');
my $var  = CGI::param('referenz');


 
#my $url1 = 'https://server.de/topic/?name=stefan&id=r_ft=anything';

my $url1 = 'https://server.de/topic/';

my $ua = LWP::UserAgent->new;
$ua->add_handler("request_send",  sub { shift->dump; return });
$ua->add_handler("response_done", sub { shift->dump; return });


my $h = HTTP::Headers->new(Content_Type => 'text/html; version=3.2', 'X-Requested-With' => 'XMLHttpRequest');
$h->user_agent('Mozilla/5.0 (compatible; MSIE 7.0; Windows NT 6.0)');

my $req = HTTP::Request->new( 'POST', $url1,['referenz => $var','r_format =>$res_format'],$h);
my $response = $ua->request($req);

if ($response->is_success){

#print $response->decoded_content;
}
else {
print "Failed: \n";
print $response->status_line, "\n";
}


Wenn ich dieser Skript aufrufe, bekomme ich die Fehlermeldung-:
Code: (dl )
Client-Warning: Internal response Not a SCALAR reference at C:/Perl/lib/LWP/Protocol/http.pm line 193.\n Failed: 500 Not a SCALAR reference


Kennt jemand den Fehler?
Ich will nur der Referen und r_format, die vom user eingegeben werden in der URL übertragen?
Vielen Dank im Voraus.
Last edited: 2012-05-31 13:29:17 +0200 (CEST)

View full thread speziellen Header parameter "X-Requested-With: XYZ".