Perl http request

#!/usr/bin/env perl 
use strict;
use warnings; 
use Encode qw(encode_utf8);
use HTTP::Request ();
use JSON::MaybeXS qw(encode_json);
my $url = 'https://www.example.com/api/user/123';
my $header = ['Content-Type' => 'application/json; charset=UTF-8'];
my $data = {foo => 'bar', baz => 'quux'};
my $encoded_data = encode_utf8(encode_json($data));
my $r = HTTP::Request->new('POST', $url, $header, $encoded_data);
# at this point, we could send it via LWP::UserAgent
# my $ua = LWP::UserAgent->new();
# my $res = $ua->request($r);

Perl http request

#!/usr/bin/env perl use strict;use warnings; use Encode qw(encode_utf8);use HTTP::Request ();use JSON::MaybeXS qw(encode_json); my $url = 'https://www.example.com/api/user/123';my $header = ['Content-Type' => 'application/json; charset=UTF-8'];my $data = {foo => 'bar', baz => 'quux'};my $encoded_data = encode_utf8(encode_json($data)); my $r = HTTP::Request->new('POST', $url, $header, $encoded_data);# at this point, we could send it via LWP::UserAgent# my $ua = LWP::UserAgent->new();# my $res = $ua->request($r);

Similar codes

1 vote270 views1 answer
Perl print @INC
Perl
0 vote293 views1 answer
Read a file in perl
Perl
0 vote304 views1 answer
Perl sprintf YYYYMMDD sample
Perl
0 vote240 views1 answer
Perl format decimal 2 places not rounding
Perl
0 vote298 views1 answer
Perl running mechanize through tor
Perl
0 vote230 views1 answer
What is the index number of the last element of an array with 9 elements?
Perl
0 vote301 views1 answer
Mean data frame columns by group R
Perl
0 vote235 views1 answer
What happened to perl 6
Perl
2 votes289 views1 answer
Perl lowercase
Perl
0 vote297 views1 answer
Perl leading zeros formatting sprintf
Perl