在Common Lisp

时间:2016-01-22 13:43:03

标签: lisp common-lisp

我正在使用天气获取应用程序,我正在使用关联列表时遇到一些麻烦。我使用openweathermap和convert-to-json从我的get-weather函数返回了以下列表:

((:COORD (:LON . -123.12) (:LAT . 49.25))
 (:WEATHER
  ((:ID . 500) (:MAIN . "Rain") (:DESCRIPTION . "light rain") (:ICON . "10n")))
 (:BASE . "cmc stations")
 (:MAIN (:TEMP . 281.56) (:PRESSURE . 1001) (:HUMIDITY . 93)
  (:TEMP--MIN . 276.15) (:TEMP--MAX . 283.15))
 (:WIND (:SPEED . 3.1) (:DEG . 100)) (:CLOUDS (:ALL . 90)) (:DT . 1453467600)
 (:SYS (:TYPE . 1) (:ID . 3359) (:MESSAGE . 0.0039) (:COUNTRY . "CA")
  (:SUNRISE . 1453478139) (:SUNSET . 1453510389))
 (:ID . 6173331) (:NAME . "Vancouver") (:COD . 200))

我正试图访问:天气:大雨。目前我在做:

(cdr (second (second (assoc :weather *assoc-list-from-above*))))

有更好的方法吗?

4 个答案:

答案 0 :(得分:4)

虽然我非常喜欢@ jkiiski的(defmacro report-get (report &optional key &rest keys) (cond ((null key) report) ((integerp key) `(report-get (nth ,key ,report) ,@keys)) (t `(report-get (cdr (assoc ,key ,report)) ,@keys)))) 解决方案,但我还是想添加以下选项。

如果查询路径在编译时已知,则可以使用以下宏

CL-USER> (report-get *array-from-above* :weather 0 :main)
"Rain"

CL-USER> (report-get *array-from-above* :coord :lon)
-123.12

CL-USER> (macroexpand '(report-get *array-from-above* :weather 0 :main))
(CDR (ASSOC :MAIN (NTH 0 (CDR (ASSOC :WEATHER *ARRAY-FROM-ABOVE*)))))
T

的示例:

0

(report-get *array-from-above* :weather 0 :main)中的setf用于访问天气项目集合中的第一项

修改:忘了提及 - 这个宏是CL-USER> (report-get *array-from-above* :weather 0 :main) "Rain" CL-USER> (setf (report-get *array-from-above* :weather 0 :main) "Sunny") "Sunny" CL-USER> (report-get *array-from-above* :weather 0 :main) "Sunny" - 能够。

{{1}}

可能对您的要求没有用,但很高兴知道。

答案 1 :(得分:3)

首先,使用一些中间变量让您对关联列表的访问更加清晰可能就足够了。首先,让我们定义一个我们可以解析的输入字符串(将来,请尝试在问题中提供这些字符串,因为它们会帮助其他人提供答案):

(defparameter *input*
  "{\"coord\":{\"lon\":-123.12,\"lat\":49.25},\"weather\":[{\"id\":500,\"main\":\"Rain\",\"description\":\"light rain\",\"icon\":\"10n\"}],\"base\":\"cmc stations\",\"main\":{\"temp\":281.56,\"pressure\":1001,\"humidity\":93,\"temp--min\":276.15,\"temp--max\":283.15},\"wind\":{\"speed\":3.1,\"deg\":100,\"clouds\":{\"all\":90}},\"dt\":1453467600,\"sys\":{\"sunrise\":1453478139,\"sunset\":1453510389},\"id\":6173331,\"name\":\"Vancouver\",\"cod\":200}")

现在,在我看来,你可以更清楚地提取天气领域的主要领域的价值:

(let* ((report (cl-json:decode-json-from-string *input*))
       (weather (first (cdr (assoc :weather report))))
       (main (cdr (assoc :main weather))))
  main)
;;=> "Rain"

如果您要像这样重复调用(cdr(assoc ...)),那么基于提供的路径执行此操作的功能将有很大帮助,如{{ 3}}。当然,数组索引(例如,您想要天气列表的第一个元素)会使事情变得不那么干净。

现在,您还要解码为CLOS实例。 CL-JSON可以将JSON解码为匿名CLOS类的实例。单独这样做会改变访问权限,但不会太多。尽管如此,它使得该领域的工作方式更加清晰。请注意,由于天气值现在是一个数组,而不是一个列表,我们得到的第一个元素是(aref array 0),而不是(第一个列表)

(json:with-decoder-simple-clos-semantics
  (let ((json:*json-symbols-package* nil))
    (let* ((report (json:decode-json-from-string *input*))
           (weather (aref (slot-value report 'weather) 0))
           (main (slot-value weather 'main)))
      main)))
;;=> "Rain"

现在,我认为使用CLOS类的真正好处是您可以定义自己的类,然后使用Rainer's answer将CL-JSON提供的实例更改为您自己的类的实例。 在代码中定义类也有助于文档。对于一个小例子来说,这似乎不是什么大问题,但在编写可维护的代码时,它非常重要。例如,我们现在可以记录这些插槽的预期类型及其含义。这是一个可行的类定义。请注意,人们对命名约定有不同的看法(例如,是否使用 wreport-weather 作为访问者或天气)。

(defclass wreport ()
  ((coord
    :accessor wreport-coord
    :documentation "An object with LON and LAT slots.")
   (weather
    :accessor wreport-weather
    :documentation "An array of objects with ID, MAIN, DESCRIPTION, and ICON slots.")
   (base) ;; and so on ...
   (main)
   (wind)
   (dy)
   (sys)
   (id)
   (name)))

现在您可以使用更改类将对象转换为 wreport ,然后您可以使用 wreport-weather (以及获取子对象的 aref ,因为值仍为数组),然后您可以使用 slot-value (如上所示)获取主要字段:

(json:with-decoder-simple-clos-semantics
  (let ((json:*json-symbols-package* nil))
    (let ((x (json:decode-json-from-string *input*)))
      (let* ((wreport (change-class x 'wreport))
             (weather (aref (wreport-weather wreport) 0))
             (main (slot-value weather 'main)))
        main))))
;;=> "Rain"

为天气元素定义一个子类可能是有意义的,这并不太难。由于我们调用了顶级的东西 wreport ,我们可以调用较低级别的东西子报告

(defclass subreport ()
  ((id
    :accessor subreport-id
    :documentation "")
   (main
    :accessor subreport-main
    :documentation "A short string containing a concise description of the weather.")
   (description
    :accessor subreport-description
    :documentation "...")
   (icon
    :accessor subreport-icon
    :documentation "...")))

现在,唯一要做的就是在我们使用更改类将顶级报告更改为 wreport 的实例后,我们需要调用<对于其天气数组中的每个元素,strong> change-class 将其转换为子报告。根据{{​​3}}的文档,调用了change-class。我们可以定义一个:after 方法,为我们做转换:

(defmethod update-instance-for-different-class :after (previous (current wreport) &rest initargs &key &allow-other-keys)
  "When changing an instance of something into a WREPORT, recursively
change the elements of the WEATHER array (if bound) to elements of
SUBREPORT."
  (declare (ignore initargs))
  (when (slot-boundp current 'weather)
    (loop for sub across (wreport-weather current)
       do (change-class sub 'subreport))))

如果你对CLOS没有做太多,那可能有点吓人,但你基本上是说“在改变班级完成所有工作之后,还要再做一次这样的改造现在,您可以在两个级别使用域适当的访问器:

(json:with-decoder-simple-clos-semantics
  (let ((json:*json-symbols-package* nil))
    (let ((x (json:decode-json-from-string *input*)))
      (let* ((wreport (change-class x 'wreport))
             (subreport (aref (wreport-weather wreport) 0))
             (main (subreport-main subreport))) ;; (slot-value subreport 'main)))
        main))))
;;=> "Rain"

这可能看起来要做很多工作,对于一个快速的小脚本,它可能很好。但是,如果您需要这些结构一段时间,将文档编入代码将会很有帮助。如果您需要构建任何天气预报,拥有一个好的域名模型将会有很大帮助。

答案 2 :(得分:2)

如果您经常使用这些值,您可能希望将alist转换为CLOS对象。 json-library可能有一些东西可以帮助你做到,但这里是一个手动执行天气部分的例子。你可以用其他的方式完成其他工作。

(defparameter *data*
  '((:COORD (:LON . -123.12) (:LAT . 49.25))
    (:WEATHER
     ((:ID . 500) (:MAIN . "Rain") (:DESCRIPTION . "light rain") (:ICON . "10n")))
    (:BASE . "cmc stations")
    (:MAIN (:TEMP . 281.56) (:PRESSURE . 1001) (:HUMIDITY . 93)
     (:TEMP--MIN . 276.15) (:TEMP--MAX . 283.15))
    (:WIND (:SPEED . 3.1) (:DEG . 100)) (:CLOUDS (:ALL . 90)) (:DT . 1453467600)
    (:SYS (:TYPE . 1) (:ID . 3359) (:MESSAGE . 0.0039) (:COUNTRY . "CA")
     (:SUNRISE . 1453478139) (:SUNSET . 1453510389))
    (:ID . 6173331) (:NAME . "Vancouver") (:COD . 200)))

;; Define classes for the parts that you're interested in.
;; You can leave out the slots you don't need.
(defclass weather ()
  ((id :initarg :id :reader id)
   (main :initarg :main :reader main)
   (description :initarg :description :reader description)
   (icon :initarg :icon :reader icon)))

;; This just decodes the :weather part.
(defun decode-weather (alist)
  (make-instance 'weather
                 :id (cdr (assoc :id alist))
                 :main (cdr (assoc :main alist))
                 :description (cdr (assoc :description alist))
                 :icon (cdr (assoc :icon alist))))

(defparameter *weather* (decode-weather (second (assoc :weather *data*))))

(id *weather*)          ; => 500
(main *weather*)        ; => "Rain"
(description *weather*) ; => "light rain"
(icon *weather*)        ; => "10n"

修改:添加到其他选项:您可以查看json-bind实用程序。

(defparameter *json* "{\"foo\": {\"bar\": 5, \"quux\": 10, \"foobar\":[1, 2, 3]}}")
(json:json-bind (foo.bar
                 foo.quux
                 foo.foobar)
    *json*
  (format t "bar: ~a~%quux: ~a~%foobar: ~a~%" 
          foo.bar foo.quux foo.foobar))
;; output:   
;;   bar: 5
;;   quux: 10
;;   foobar: (1 2 3) 

从约书亚借来*input*

(defparameter *input*
  "{\"coord\":{\"lon\":-123.12,\"lat\":49.25},\"weather\":{\"id\":500,\"main\":\"Rain\",\"description\":\"light rain\",\"icon\":\"10n\"},\"base\":\"cmc stations\",\"main\":{\"temp\":281.56,\"pressure\":1001,\"humidity\":93,\"temp--min\":276.15,\"temp--max\":283.15},\"wind\":{\"speed\":3.1,\"deg\":100,\"clouds\":{\"all\":90}},\"dt\":1453467600,\"sys\":{\"sunrise\":1453478139,\"sunset\":1453510389},\"id\":6173331,\"name\":\"Vancouver\",\"cod\":200}")

(json:json-bind (weather.main
                 sys.sunrise) *input*
  (format t "Weather main: ~a~%Sys surise: ~a~%" weather.main sys.sunrise))

另一个编辑:如果您有多个weather,那么您最好选择使用CLOS(我的选项或Joshuas)。如果你还需要使用天气以外的其他领域,你可以结合我给出的两个解决方案:

(json:json-bind (weather sys.sunrise) *input*
  (format t "sys sunrise: ~a~%" sys.sunrise)
  (loop 
     for w in weather
     for dw = (decode-weather w)
     do (format t "Weather: ~a, ~a~%" (main dw) (description dw))))

如果您不想使用CLOS,也可以这样做:

(defun decode-weather-2 (alist)
  (list (cdr (assoc :main alist))
        (cdr (assoc :description alist))))

(json:json-bind (weather sys.sunrise) *input*
  (format t "sys sunrise: ~a~%" sys.sunrise)
  (loop 
     for w in weather
     for (main description) = (decode-weather-2 w)
     do (format t "Weather: ~a, ~a~%" main description)))

答案 3 :(得分:2)

您可以编写一个函数,在其中传递访问路径:

(defun get-data (list attributes)
  (flet ((get-it (attribute)
           (if (listp attribute)
               (destructuring-bind (key extractor) attribute
                 (funcall extractor (cdr (assoc key list))))
             (cdr (assoc attribute list)))))
    (if (cdr attributes)
        (get-data-list (get-it (first attributes)) (rest attributes))
      (get-it (first attributes)))))

路径中的元素可以是键(键提取器)的键或列表。提取器需要是一个从返回的关联列表项中提取数据的函数。

(defparameter *data*
  '((:COORD (:LON . -123.12) (:LAT . 49.25))
    (:WEATHER
     ((:ID . 500) (:MAIN . "Rain") (:DESCRIPTION . "light rain") (:ICON . "10n")))
    (:BASE . "cmc stations")
    (:MAIN (:TEMP . 281.56) (:PRESSURE . 1001) (:HUMIDITY . 93)
     (:TEMP--MIN . 276.15) (:TEMP--MAX . 283.15))
    (:WIND (:SPEED . 3.1) (:DEG . 100))
    (:CLOUDS (:ALL . 90)) (:DT . 1453467600)
    (:SYS (:TYPE . 1) (:ID . 3359) (:MESSAGE . 0.0039) (:COUNTRY . "CA")
     (:SUNRISE . 1453478139) (:SUNSET . 1453510389))
    (:ID . 6173331)
    (:NAME . "Vancouver")
    (:COD . 200)))

示例:

CL-USER 22 > (get-data *data* '((:weather first) :main))
"Rain"

CL-USER 23 > (get-data *data* '((:weather first) :icon))
"10n"

CL-USER 24 > (get-data *data* '(:main :temp))
281.56

任务:

  • 使其更强大等等。
  • 处理不同的列表:关联列表,属性列表,带项目的列表,......