Получение курсов акций от Yahoo с Elisp?
Я хотел бы использовать Yahoo для получения курсов акций из программы Lisp Emacs. У меня есть два вопроса.
- Как я заставляю http ДОБРАТЬСЯ?
- Что является лучшим, что хранить данные в Elisp, таким образом, я могу сделать сравнения данных? Другими словами, я должен использовать одну хеш-таблицу, несколько хеш-таблиц или списков для представления тех данных, возвращенных из Yahoo?
Вот основная схема того, что я хотел бы сделать.
;; Call Yahoo to get equity prices
;;
;; Yahoo Input:
;; http://download.finance.yahoo.com/d/quotes.csv?s=AAPL+GOOG&f=sb2b3jkm6
;; Yahoo Output:
;; "AAPL",211.98,211.82,78.20,215.59,+17.90%
;; "GOOG",602.94,601.69,282.75,629.51,+18.27%
;;
;; Symbol, ask, bid, 52 week low, 52 week high, % change from 200 day mavg
;;
;; Yahoo format described here: http://www.gummy-stuff.org/Yahoo-data.htm
(defun get-price-url (tickers)
"
s = symbol
b2 = ask real-time
b3 = bid real-time
j = 52 week low
k = 52 week high
"
(concat "http://download.finance.yahoo.com/d/quotes.csv?s="
(mapconcat 'identity tickers "+") "&f=sb2b3jk"))
(setq lst '("AAPL" "GOOG" "MSFT" "ORCL"))
(setq url (get-price-url lst))
;; Call Yahoo with Url, process results and place in a data structure
;;
;; Return results sorted by largest change in 200 day mavg, in descending order
;;
2 ответа
Вот код для начала; Я показываю, как получить URL-адрес в буфер, проанализировать каждую строку, а затем отобразить тикер и цену каждого элемента. Вы можете изменить его оттуда, чтобы делать то, что вам нужно.
Это анализирует каждую строку данных о запасах в список, и сразу же можно получить значения, используя первую, вторую, третью функции или используя nth. Вы можете написать функции для захвата каждого элемента, который вы хотите, например get-ticker (quote), который просто возвращает (первый тикер)
Я бы не стал долго думать, какую структуру данных использовать; все, что проще, прекрасно. Если вам нужна высокая производительность, вам в любом случае не следует использовать для этого emacs lisp.
(defun test()
(interactive)
(let ((quotes (get-quotes '("AAPL" "GOOG" "MSFT" "ORCL" "ERTS" "THQI") "sb")))
(show-quotes quotes)))
(defun show-quotes(quotes)
(dolist (quote quotes)
(message (format "%s $%.2f" (first quote) (string-to-number (second quote))))))
(defun get-quotes(tickers field-string)
"Given a list of ticker names and a string of fields to return as above, this grabs them
from Yahoo, and parses them"
(let ((results-buffer (get-yahoo-quotes-to-buffer (get-price-url tickers field-string))))
(switch-to-buffer results-buffer)
(parse-quote-buffer results-buffer)))
(defun get-price-url (tickers field-string)
"Set up the get url"
(concat "http://download.finance.yahoo.com/d/quotes.csv?s="
(mapconcat 'identity tickers "+")
"&f=" field-string))
(defun get-yahoo-quotes-to-buffer(url)
"Retrieve the quotes to a buffer and return it"
(url-retrieve-synchronously url))
(defun parse-quote-buffer(b)
"Parse the buffer for quotes"
(goto-line 1)
(re-search-forward "^\n")
(beginning-of-line)
(let ((res nil))
(while (> (point-max) (point))
(setf res (cons (split-string (thing-at-point 'line) ",") res))
(forward-line 1))
(reverse res)))
] Посмотрите [] http://edward.oconnor.cx/elisp/[]. У Эдварда есть несколько примеров взаимодействия с различными сервисами по HTTP, и если вы не можете найти клиентскую библиотеку Yahoo, вы можете написать ее, используя эти методы.[
].