我正在使用天气获取应用程序,我正在使用关联列表时遇到一些麻烦。我使用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*))))
有更好的方法吗?
答案 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
任务: