Logo

Programming-Idioms

This language bar is your friend. Select your favorite languages!

Idiom #174 Make HTTP POST request

Make a HTTP request with method POST to the URL u

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();
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)
import "net/http"
response, err := http.Post(u, contentType, body)
fetch(u, {
        method: "POST",
	body: JSON.stringify(data)
})
(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";
}
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)
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()?;
New implementation...
< > ⌨
programming-idioms.org 
String s = HttpClient.newHttpClient().send(HttpRequest.newBuilder()
                        .uri(URI.create(u))
                        .POST(HttpRequest.BodyPublishers.ofString(content))
                        .build(), HttpResponse.BodyHandlers.ofString())
                .body();
new HttpClient().PostAsync(u, content);
auto response = post(u, content);
await post(u, body: body, headers: headers);
response, err := http.PostForm(u, formValues)
response, err := http.Post(u, contentType, body)
fetch(u, {
        method: "POST",
	body: JSON.stringify(data)
})
(dex:post u)
(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);
with TFPHTTPClient.Create(nil) do
begin
 Post(u);
 Free;
end;
# 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";
}
my $response = `curl -X POST $u`;
perl -Mojo -E 'my $u = "www.example.com"; say p($u)->body;'
data = parse.urlencode(<your data dict>).encode()
req =  request.Request(u, data=data, method="POST")
resp = request.urlopen(req)
Net::HTTP.post(u, content)
let client = reqwest::blocking::Client::new();
let mut response = client.post(u).body("abc").send()?;