Wie parse URL-Parameter in Clojure?

Wenn ich die Anfrage "size=3&mean=1&sd=3&type=pdf&distr=normal" was ist die idiomatische Schreibweise für die Funktion (defn request->map [request] ...) nimmt diese Anfrage und
gibt eine Karte {:size 3, :mean 1, :sd 3, :type pdf, :distr normal}

Hier ist mein Versuch (mithilfe von clojure.zu Fuß und clojure.string):

(defn request-to-map
   [request]
   (keywordize-keys
      (apply hash-map
             (split request #"(&|=)"))))

Ich bin daran interessiert, wie andere dieses problem lösen würde.

InformationsquelleAutor ChrisR | 2011-07-06

clojure

10

Können Sie dies leicht tun mit einer Anzahl von Java-Bibliotheken. Ich würde zögern, zu versuchen, zu Rollen, meine eigene parser, es sei denn, ich lese die URI-Spezifikationen sorgfältig und sicher, dass ich fehlte nicht alle Sonderfälle (z.B. Parameter, die in der Abfrage zweimal mit unterschiedlichen Werten). Dies nutzt jetty-util:
```
(import '[org.eclipse.jetty.util UrlEncoded MultiMap])

(defn parse-query-string [query]
  (let [params (MultiMap.)]
    (UrlEncoded/decodeTo query params "UTF-8")
    (into {} params)))

user> (parse-query-string "size=3&mean=1&sd=3&type=pdf&distr=normal")
{"sd" "3", "mean" "1", "distr" "normal", "type" "pdf", "size" "3"}
```
- Beachten Sie, dass während der Jahre, die UrlEncoded Klasse geändert hat und der obige code funktioniert nicht in Jetty 9.2.10. Das funktioniert: (defn - parse-query-string [Abfrage] (->> Abfrage-UrlEncoded. (in {}) (clojure.algo.generisches.Funktor/fmap erste)))
InformationsquelleAutor Brian Carper

Angenommen, Sie möchten, analysieren von HTTP-request-query-Parametern, warum nicht ring? ring.middleware.params enthält, was Sie wollen.

Die Funktion für parameter-Extraktion geht so:

(defn- parse-params
  "Parse parameters from a string into a map."
  [^String param-string encoding]
  (reduce
    (fn [param-map encoded-param]
      (if-let [[_ key val] (re-matches #"([^=]+)=(.*)" encoded-param)]
        (assoc-param param-map
          (codec/url-decode key encoding)
          (codec/url-decode (or val "") encoding))
         param-map))
    {}
    (string/split param-string #"&")))

InformationsquelleAutor ordnungswidrig

Mit form-decode und keywordize-keys:

(use 'ring.util.codec)
(use 'clojure.walk)

(keywordize-keys (form-decode "hello=world&foo=bar"))

{:foo "bar", :hello "world"}

Die einfachste Antwort, wenn Sie mit ring-1.2

InformationsquelleAutor KendallB

3

Deins sieht gut aus. Ich neigen dazu, übernutzung regexes, so hätte ich es gelöst, wie
```
(defn request-to-keywords [req]
  (into {} (for [[_ k v] (re-seq #"([^&=]+)=([^&]+)" req)]
    [(keyword k) v])))

(request-to-keywords "size=1&test=3NA=G")

{:size "1", :test "3NA=G"}
```
Bearbeiten: versuchen Sie zu bleiben Weg von clojure.zu Fuss allerdings. Ich glaube nicht, dass es offiziell nicht mehr, aber es ist nicht sehr gut gepflegt. (Ich benutze es viel, auch wenn, so fühlen sich nicht schlecht).
- Nicht zu empfehlen dieses grobe regex als einen Weg, um das problem zu lösen, aber wirklich versuchen, setzen Sie auf einige interessante Redewendungen wie into...for und re-seq.
- thx für die Antwort, immer noch versuchen, um meinen Kopf herum, was Ihr code tut, auch ich bin versucht zu machen, wie :Größe 1 statt :die Größe "1" unter Verwendung der Integer - /parseInt, obwohl ich noch nicht voll gearbeitet, dass in meinem code noch
- Sollten Sie auch URLDecode, Nein?
- Vielleicht. Wenn der code, den Sie senden das Ergebnis an Pläne zu URLDecode für sich selbst, dann sollten Sie das nicht.
InformationsquelleAutor amalloy
3

Können auch verwenden diese Bibliothek für beide, clojure und clojurescript: https://github.com/cemerick/url
```
user=> (-> "a=1&b=2&c=3" cemerick.url/query->map clojure.walk/keywordize-keys)
{:a "1", :b "2", :c "3"}
```
InformationsquelleAutor bluegray

Stieß ich auf diese Frage beim Aufbau meiner eigenen Website und die Antwort kann ein bisschen anders und leichter, wenn Sie die übergabe von Parametern intern.

Mit Sekretär routing: https://github.com/gf3/secretary

Parameter werden automatisch extrahiert, um eine Karte in :query-Parameter, wenn eine route übereinstimmung gefunden wird. Das Beispiel in der Dokumentation:

(defroute "/users/:id" [id query-params]
  (js/console.log (str "User: " id))
  (js/console.log (pr-str query-params)))

(defroute #"/users/(\d+)" [id {:keys [query-params]}]
  (js/console.log (str "User: " id))
  (js/console.log (pr-str query-params)))

;; In both instances...
(secretary/dispach! "/users/10?action=delete")
;; ... will log
;; User: 10
;; "{:action \"delete\"}"

InformationsquelleAutor stereo_future

Können Sie ring.middleware.params. Hier ist ein Beispiel mit aleph:

user=> (require '[aleph.http :as http])
user=> (defn my-handler [req] (println "params:" (:params req)))
user=> (def server (http/start-server (wrap-params my-handler)))

wrap-params erstellt einen Eintrag in der request Objekt namens :params. Wenn Sie möchten, dass die Abfrage-Parameter als Schlüsselwörter, die Sie verwenden können ring.middleware.keyword-params. Werden Sie sicher, wrap mit wrap-params erste:

user=> (require '[ring.middleware.params :refer [wrap-params]])
user=> (require '[ring.middleware.keyword-params :refer [wrap-keyword-params])
user=> (def server 
         (http/start-server (wrap-keyword-params (wrap-params my-handler))))

Jedoch bewusst sein, dass dies auch eine Abhängigkeit von ring.

InformationsquelleAutor thepanuto

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.