Creating implementation for idiom 174 : Make HTTP POST request

Idiom

# 174 Make HTTP POST request

Created by

Lead paragraph

Make a HTTP request with method POST to the URL u

New implementation

Language

Imports

Code

Documentation URL

Original attribution URL

Online runnable demo

Username

Be concise.

Be useful.

All contributions dictatorially edited by webmasters to match personal tastes.

Please do not paste any copyright violating material.

Please try to avoid dependencies to third-party libraries and frameworks.

Other implementations

using System.Net.Http;

new HttpClient().PostAsync(u, content);

import std.net.curl;

auto response = post(u, content);

import 'package:http/http.dart';

await post(u, body: body, headers: headers);

import "net/http"
import "net/url"

response, err := http.PostForm(u, formValues)

Demo
Doc

import "net/http"

response, err := http.Post(u, contentType, body)

Demo
Doc

fetch(u, {
        method: "POST",
	body: JSON.stringify(data)
})

import java.net.URI;
import java.net.http.HttpClient;
import java.net.http.HttpRequest;
import java.net.http.HttpResponse;

String s = HttpClient.newHttpClient().send(HttpRequest.newBuilder()
                        .uri(URI.create(u))
                        .POST(HttpRequest.BodyPublishers.ofString(content))
                        .build(), HttpResponse.BodyHandlers.ofString())
                .body();

(ql:quickload 'dexador)

(dex:post u)

(ql:quickload :drakma)

(drakma:http-request u :method :post)

$ch = curl_init(); 
curl_setopt($ch, CURLOPT_URL, $u); 
curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1); 
curl_setopt($ch, CURLOPT_POST, 1);
$output = curl_exec($ch); 
curl_close($ch);

uses fphttpclient;

with TFPHTTPClient.Create(nil) do
begin
 Post(u);
 Free;
end;

use LWP::UserAgent;

# Create a user agent object

my $ua = LWP::UserAgent->new;
 
# Create a request
my $req = HTTP::Request->new(POST => $u);
 
# Pass request to the user agent and get a response back
my $res = $ua->request($req);
 
# Check the outcome of the response
if ($res->is_success) {
    print $res->content;
}
else {
    print $res->status_line, "\n";
}

Doc
Origin

my $response = `curl -X POST $u`;

perl -Mojo -E 'my $u = "www.example.com"; say p($u)->body;'

from urllib import request, parse

data = parse.urlencode(<your data dict>).encode()
req =  request.Request(u, data=data, method="POST")
resp = request.urlopen(req)

Doc
Origin

require "net/http"

Net::HTTP.post(u, content)

[dependencies]
error-chain = "0.12.4"
reqwest = { version = "0.11.2", features = ["blocking"] }

use error_chain::error_chain;
use std::io::Read;

let client = reqwest::blocking::Client::new();
let mut response = client.post(u).body("abc").send()?;

Preview