在clojure中创建10k +代理

[http-kit "2.5.3"]

(ns my-proxy.core
  (:require [http.async.client :as http-client]
            [http.async.server :as http-server]))

(defn- proxy-request [req]
  (let [target-url "http://example.com"
        target-req (-> req
                       (assoc :url target-url)
                       (dissoc :headers :server-port :server-name :uri :query-string :remote-addr))]
    (http-client/GET target-req)))

(defn- start-proxy-server [port]
  (http-server/run-server
    (fn [req]
      (proxy-request req))
    {:port port}))

(defn -main [& args]
  (let [port (Integer/parseInt (or (System/getenv "PORT") "8080"))]
    (start-proxy-server port)
    (println (str "Server started on port " port))
    (while true
      (Thread/sleep 1000))))