Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: content type in LWP::UserAgent

by choroba (Cardinal)
on Nov 16, 2022 at 23:51 UTC ( #11148206=note: print w/replies, xml ) Need Help??


in reply to content type in LWP::UserAgent

According to the documentation, this should work (and if I understand the output, it really does).
#!/usr/bin/perl use warnings; use strict; use LWP::UserAgent; use Cpanel::JSON::XS qw{ encode_json }; my $ua = 'LWP::UserAgent'->new(timeout => 1); my $response = $ua->post('https://httpbin.org/post', 'content-type' => 'application/json', Content => encode_json({key => 'value'})); print $response->decoded_content;

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

Replies are listed 'Best First'.
Re^2: content type in LWP::UserAgent
by stevieb (Canon) on Nov 17, 2022 at 15:33 UTC

    I can unequivocally say that what choroba has there works properly. Here's an actual working example I just tested (with some name/data modifications):

    use warnings; use strict; use LWP::UserAgent; use JSON; my $ua = LWP::UserAgent->new; my $body_content = { token => 'NTE2M2Q3YmFmMGEzNjEzMGQyZmFmYmViNGEasdfmNzkzMTE3NzI3MWMz +MDhkZjliYWE3NTI1OTg1MDQwNjNlZg' }; my $resp = $ua->post( 'https://my.server.com', 'Content-Type' => 'application/json', 'Content' => encode_json $body_content ); print $resp->decoded_content;

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11148206]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (5)
As of 2023-02-03 14:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I prefer not to run the latest version of Perl because:







    Results (26 votes). Check out past polls.

    Notices?