in reply to cURL and HTTP::Request
Hello jeanbaptiste93 and welcome to the monastery and to the wonderful world of Perl!
I dont know CURL but our fellow monk Corion (well really a Pope ..mhh Patriarch) wrote a fantastic web service based on his HTTP::Request::FromCurl
So, removing the unkonwn option --url I get, using LWP::UserAgent from the dropdown menu, the following code which might be a nice starting point.
Note that I also removed your PUT
#!perl use strict; use warnings; use LWP::UserAgent; my $ua = LWP::UserAgent->new( 'send_te' => '0' ); my $r = HTTP::Request->new( 'POST' => 'https://[URL]/[ENDPOINT]/item?key=%5BKEY%5D&token=%5BTO +KEN%5D', [ 'Accept' => '*/*', 'User-Agent' => 'curl/7.55.1', 'Content-Length' => '25', 'Content-Type' => 'application/json' ], "{\x22value\x22: {\x22text\x22: \x2238\x22}}" ); my $res = $ua->request( $r, ); __END__ Created from curl command line --request 'https://[URL]/[ENDPOINT]/item?key=[KEY]&token=[TOKEN]' --h +eader 'Content-Type: application/json' --data '{"value": {"text": "38 +"}}'
L*
There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.
In Section
Seekers of Perl Wisdom