Re: Post using LWP useragent curl post request to useragent request

For starters, that syntax doesn't match any of the documented calling conventions:

POST $url
POST $url, Header => Value,...
POST $url, $form_ref, Header => Value,...
POST $url, Header => Value,..., Content => $form_ref
POST $url, Header => Value,..., Content => $content
[download]

You want

my $attributes = { name => "test.txt", parent => { id => 0 }};

$ua->post(ENDPOINT,
   Content_Type => 'form-data',
   Authorization => "Bearer $token",
   Content => [
      attributes => encode_json($attributes),
      file       => [ "test.txt" ],
   ],
);
[download]

Use the following if you don't want to read from disk:

[ undef, "test.txt", Content => $file_contents ]
[download]

Comment on Re: Post using LWP useragent curl post request to useragent request Select or Download Code

Replies are listed 'Best First'.
Re^2: Post using LWP useragent curl post request to useragent request by smarthacker67 (Beadle) on May 26, 2018 at 13:08 UTC
Thanks for reply. I tried following your method and referred the following as well http://search.cpan.org/~oalders/HTTP-Message-6.16/lib/HTTP/Request.pm#EXAMPLES but no luck so far. still getting 405 error code. I am not sure on how to add BODY PARAMS and the actual file content with the post request. I am intending to UPLOAD a file via post request to END POINTS	[reply]
Re^3: Post using LWP useragent curl post request to useragent request by poj (Abbot) on May 26, 2018 at 15:10 UTC
I tried following your method Post the code you tried poj	[reply]
Re^4: Post using LWP useragent curl post request to useragent request by smarthacker67 (Beadle) on May 26, 2018 at 20:47 UTC
`my $request = HTTP::Request::Common::POST( BOX, [ Content_Type => 'form-data', Authorization => "Bearer $token", Content => [ attributes => $c, #encoded json file => [ "$Bin/test.txt" ], #file_path ], ] );` [download] __________________________try 2_______________________________ `sub build_json_request { my ($url) = @_; my $header = ['Authorization' => "Bearer $token", 'Content-Type' = +> 'form-data']; return HTTP::Request->new('POST', $url, $header, {attributes => $c +, file=> [ "$Bin/upload.bak" ],} ); } my $r = build_json_request (ENDPOINT ); my $res = $ua->request($r);` [download] I am pro when comes to Perl but don't know how http post works. Do I have to encode body params while passing. and not sure if LWP::Useragent will fetch the file contain itself given the full file path or not. Can you help me in get this working.	[reply] [d/l] [select]
Re^5: Post using LWP useragent curl post request to useragent request by poj (Abbot) on May 26, 2018 at 21:11 UTC
Re^6: Post using LWP useragent curl post request to useragent request by smarthacker67 (Beadle) on May 26, 2018 at 21:31 UTC


Problems? Is your data what you think it is?
	PerlMonks