how to add parameter to HTTP header in Perl?(not fowwlow the ? in url)

[Alont]

this is the header IE send to server:
POST /services/test.asp HTTP/1.1
Cache-Control: no-cache
Cookie: ASPSESSIONIDCQTDRQQR=IEDGMDLBFKGNEBGBIKNOEDLN

paramater1=baozhuangxiang&ext=txt

I want Perl can send this header too, but I don't know how to add
"paramater1=baozhuangxiang&ext=txt " to the header?

$url='http://localhost/services/test.asp'
$request = HTTP::Request->new(POST => $url);

#before send the request, how I can add
"paramater1=baozhuangxiang&ext=txt" to the header?

$response = $lwp->request($request); #send request
if ($response->is_success) {
$data = $response->content;

 

[John Bokma]

this is the header IE send to server:
POST /services/test.asp HTTP/1.1
Cache-Control: no-cache
Cookie: ASPSESSIONIDCQTDRQQR=IEDGMDLBFKGNEBGBIKNOEDLN

paramater1=baozhuangxiang&ext=txt

I want Perl can send this header too, but I don't know how to add
"paramater1=baozhuangxiang&ext=txt " to the header?

$url='http://localhost/services/test.asp'
$request = HTTP::Request->new(POST => $url);

#before send the request, how I can add
"paramater1=baozhuangxiang&ext=txt" to the header?

http://johnbokma.com/perl/currencyconverter.html has an example of this.

So:

my $action = POST

'http://localhost/services/test.asp', [

parameter1 => 'baozhuangxiang',
ex => 'txt',
];

my $ua = LWP::UserAgent->new;
my $request = $ua->request( $action );

could do the trick in your case.

 

[Alont]

syntax error?

---------- Perl compiler ----------
String found where operator expected at D:\Inetpub\wwwroot\whois.pl
line 37, near "POST

'http://localhost/services/test.asp'"
(Do you need to predeclare POST?)
syntax error at D:\Inetpub\wwwroot\test.pl line 37, near "POST


ʱ¼ä:19 Nov 2004 07:54:43 GMT

my $action = POST

'http://localhost/services/test.asp', [

parameter1 => 'baozhuangxiang',
ex => 'txt',
];

 

[Gisle Aas]

So:

my $action = POST

'http://localhost/services/test.asp', [

parameter1 => 'baozhuangxiang',
ex => 'txt',
];

my $ua = LWP::UserAgent->new;
my $request = $ua->request( $action );

This variable is misnamed as what's returned by $ua->request() is a
'response'.

BTW, you can shorten this to:

my $ua = LWP::UserAgent->new;
my $response = $ua->post('http://localhost/services/test.asp', [
parameter1 => 'baozhuangxiang',
ex => 'txt',
]);

 

[Alont]

ʱ¼ä:19 Nov 2004 13:21:58 +0100

my $ua = LWP::UserAgent->new;
my $response = $ua->post('http://localhost/services/test.asp', [
parameter1 => 'baozhuangxiang',
ex => 'txt',
]);

I think My Perl system is not same as yours, the module LWP::UserAgent
haven't the method"post" as you said, error info:

Can't locate object method "post" via package "LWP::UserAgent" at

 

[Gisle Aas]

ʱ¼ä:19 Nov 2004 13:21:58 +0100

my $ua = LWP::UserAgent->new;
my $response = $ua->post('http://localhost/services/test.asp', [
parameter1 => 'baozhuangxiang',
ex => 'txt',
]);

I think My Perl system is not same as yours, the module LWP::UserAgent
haven't the method"post" as you said, error info:

Can't locate object method "post" via package "LWP::UserAgent" at

Your version of LWP is very old then. This method was introduced in
libwww-perl-5.60 more than 3 years ago.

 

[John Bokma]

syntax error?

---------- Perl compiler ----------
String found where operator expected at D:\Inetpub\wwwroot\whois.pl
line 37, near "POST

'http://localhost/services/test.asp'"
(Do you need to predeclare POST?)

^^^^

Yup, have a peek at: http://johnbokma.com/perl/currencyconverter.html
again, especially:

use strict;
use warnings;

use LWP::UserAgent;
use HTTP::Request::Common;

 

[John Bokma]

So:

my $action = POST

'http://localhost/services/test.asp', [

parameter1 => 'baozhuangxiang',
ex => 'txt',
];

my $ua = LWP::UserAgent->new;
my $request = $ua->request( $action );

This variable is misnamed as what's returned by $ua->request() is a
'response'.

Thanks, will update my examples.

BTW, you can shorten this to:

my $ua = LWP::UserAgent->new;
my $response = $ua->post('http://localhost/services/test.asp', [
parameter1 => 'baozhuangxiang',
ex => 'txt',
]);

I try to write the examples on my pages a bit out, with a lot of
whitespace