问题
If you try to login at https://orbit.theplanet.com/Login.aspx?url=/Default.aspx (use any username/password combination), you can see that the login credentials are sent as a non-traditional set of POST data: just a lonesome JSON string and no normal key=value pair.
Specifically, instead of:
username=foo&password=bar
or even something like:
json={"username":"foo","password":"bar"}
There's simply:
{"username":"foo","password":"bar"}
Is it possible to perform such a request with LWP
or an alternative module? I am prepared to do so with IO::Socket
but would prefer something more high-level if available.
回答1:
You'll need to construct the HTTP request manually and pass that to LWP. Something like the following should do it:
my $uri = 'https://orbit.theplanet.com/Login.aspx?url=/Default.aspx';
my $json = '{"username":"foo","password":"bar"}';
my $req = HTTP::Request->new( 'POST', $uri );
$req->header( 'Content-Type' => 'application/json' );
$req->content( $json );
Then you can execute the request with LWP:
my $lwp = LWP::UserAgent->new;
$lwp->request( $req );
回答2:
Just create a POST request with that as the body, and give it to LWP.
my $req = HTTP::Request->new(POST => $url);
$req->content_type('application/json');
$req->content($json);
my $ua = LWP::UserAgent->new; # You might want some options here
my $res = $ua->request($req);
# $res is an HTTP::Response, see the usual LWP docs.
回答3:
The page is just using an "anonymized" (without name) input, which happens to be in JSON format.
You should be able to use $ua->post($url, ..., Content => $content), which in turn use the POST() function from HTTP::Request::Common.
use LWP::UserAgent;
my $url = 'https://orbit.theplanet.com/Login.aspx?url=/Default.aspx';
my $json = '{"username": "foo", "password": "bar"}';
my $ua = new LWP::UserAgent();
$response = $ua->post($url, Content => $json);
if ( $response->is_success() ) {
print("SUCCESSFUL LOGIN!\n");
}
else {
print("ERROR: " . $response->status_line());
}
Alternatively, you can also use an hash for the JSON input:
use JSON::XS qw(encode_json);
...
my %json;
$json{username} = "foo";
$json{password} = "bar";
...
$response = $ua->post($url, Content => encode_json(\%json));
回答4:
If you really want to use WWW::Mechanize you can set the header 'content-type' before post
$mech->add_header(
'content-type' => 'application/json'
);
$mech->post($uri, Content => $json);
来源:https://stackoverflow.com/questions/4199266/how-can-i-make-a-json-post-request-with-lwp