178 lines
9.7 KiB
Markdown
178 lines
9.7 KiB
Markdown
|
---
|
||
|
|
title: gauche でウェブAPIをたたく — その1
|
||
|
|
author: kazu634
|
||
|
|
date: 2010-02-14
|
||
|
|
url: /2010/02/14/_1471/
|
||
|
|
wordtwit_post_info:
|
||
|
|
- 'O:8:"stdClass":13:{s:6:"manual";b:0;s:11:"tweet_times";i:1;s:5:"delay";i:0;s:7:"enabled";i:1;s:10:"separation";s:2:"60";s:7:"version";s:3:"3.7";s:14:"tweet_template";b:0;s:6:"status";i:2;s:6:"result";a:0:{}s:13:"tweet_counter";i:2;s:13:"tweet_log_ids";a:1:{i:0;i:5115;}s:9:"hash_tags";a:0:{}s:8:"accounts";a:1:{i:0;s:7:"kazu634";}}'
|
||
|
|
categories:
|
||
|
|
- gauche
|
||
|
|
- Lisp
|
||
|
|
|
||
|
|
---
|
||
|
|
<div class="section">
|
||
|
|
<p>
|
||
|
|
Lispを使ってウェブAPIをたたき、xmlを取得しました。http getメソッドを使う tumblr の記事を取得します。
|
||
|
|
</p>
|
||
|
|
|
||
|
|
<h4>
|
||
|
|
httpリクエストを送る
|
||
|
|
</h4>
|
||
|
|
|
||
|
|
<p>
|
||
|
|
http-getを用います:
|
||
|
|
</p>
|
||
|
|
|
||
|
|
<blockquote title="Gauche ユーザリファレンス" cite="http://practical-scheme.net/gauche/man/gauche-refj_136.html">
|
||
|
|
<p>
|
||
|
|
ここでpathはリクエストURIのパスコンポーネントまでを指定する 文字列です。与えられたnameとvalueのalistから、 httpリクエスト手続きはHTML4で定められた application/x-www-form-urlencoded形式の クエリ文字列を構成し、pathにアペンドします。 例えば次のふたつのリクエストは同じ効果を持ちます。 二番目の呼び出しではurlエスケープが自動的に行われることに注目してください。
|
||
|
|
</p>
|
||
|
|
|
||
|
|
<pre class="syntax-highlight">
|
||
|
|
<span class="synSpecial">(</span>http-get <span class="synConstant">"example.com"</span> <span class="synConstant">"/search?q=foo%20bar&n=20"</span><span class="synSpecial">)</span>
|
||
|
|
<span class="synSpecial">(</span>http-get <span class="synConstant">"example.com"</span> <span class="synSpecial">'(</span><span class="synConstant">"/search"</span> <span class="synSpecial">(</span>q <span class="synConstant">"foo bar"</span><span class="synSpecial">)</span> <span class="synSpecial">(</span>n 20<span class="synSpecial">)))</span>
|
||
|
|
</pre>
|
||
|
|
|
||
|
|
<p>
|
||
|
|
<cite><a href="http://practical-scheme.net/gauche/man/gauche-refj_136.html" onclick="__gaTracker('send', 'event', 'outbound-article', 'http://practical-scheme.net/gauche/man/gauche-refj_136.html', 'Gauche ユーザリファレンス: 11.19 rfc.http – HTTP');" target="_blank">Gauche ユーザリファレンス: 11.19 rfc.http – HTTP</a></cite>
|
||
|
|
</p>
|
||
|
|
</blockquote>
|
||
|
|
|
||
|
|
<p>
|
||
|
|
getメソッドだとこれで十分です。postメソッドだとこれ以外にも指定するみたいです(そもそも、 http-post メソッドを使用する必要がある)。
|
||
|
|
</p>
|
||
|
|
|
||
|
|
<p>
|
||
|
|
http-getメソッドは、
|
||
|
|
</p>
|
||
|
|
|
||
|
|
<ol>
|
||
|
|
<li>
|
||
|
|
httpステータスコード
|
||
|
|
</li>
|
||
|
|
<li>
|
||
|
|
httpレスポンスヘッダー
|
||
|
|
</li>
|
||
|
|
<li>
|
||
|
|
httpボディー
|
||
|
|
</li>
|
||
|
|
</ol>
|
||
|
|
|
||
|
|
<p>
|
||
|
|
の三つを返します(from 「<a href="http://torus.jp/memo/x200607/aws.rd.html" onclick="__gaTracker('send', 'event', 'outbound-article', 'http://torus.jp/memo/x200607/aws.rd.html', 'Gauche ??? Amazon Web Services??? : torus solutions!');" target="_blank">Gauche ??? Amazon Web Services??? : torus solutions!</a>」)。XML部分はボディーの部分なので、多値を受け取るようにしておく必要があります(後述のまとめを参照)。
|
||
|
|
</p>
|
||
|
|
|
||
|
|
<h4>
|
||
|
|
文字コード変換する
|
||
|
|
</h4>
|
||
|
|
|
||
|
|
<p>
|
||
|
|
次のようにするのがお約束(?)のようです:
|
||
|
|
</p>
|
||
|
|
|
||
|
|
<pre class="syntax-highlight">
|
||
|
|
<span class="synSpecial">(</span>use gauche.charconv<span class="synSpecial">)</span>
|
||
|
|
<span class="synSpecial">(</span><span class="synStatement">let*</span> <span class="synSpecial">((</span>raw-in <span class="synSpecial">(</span>open-input-string str<span class="synSpecial">))</span>
|
||
|
|
<span class="synSpecial">(</span>in <span class="synSpecial">(</span>open-input-conversion-port raw-in <span class="synSpecial">'</span><span class="synIdentifier">utf-8</span><span class="synSpecial">)))</span>
|
||
|
|
<span class="synComment">;; do something</span>
|
||
|
|
<span class="synComment">;; (display in) </span>
|
||
|
|
<span class="synSpecial">)</span>
|
||
|
|
</pre>
|
||
|
|
|
||
|
|
<p>
|
||
|
|
strの部分に変換する前の文字列を指定する。
|
||
|
|
</p>
|
||
|
|
|
||
|
|
<h4>
|
||
|
|
XMLをS式に変換する
|
||
|
|
</h4>
|
||
|
|
|
||
|
|
<p>
|
||
|
|
XMLをS式にしたものをSXMLと呼びます。sxml.ssaxモジュールを用いて、変換コマンドを使用できるようにします:
|
||
|
|
</p>
|
||
|
|
|
||
|
|
<pre class="syntax-highlight">
|
||
|
|
<span class="synSpecial">(</span>use sxml.ssax<span class="synSpecial">)</span>
|
||
|
|
<span class="synSpecial">(</span>ssax:xml->sxml xml <span class="synSpecial">'())</span>
|
||
|
|
</pre>
|
||
|
|
|
||
|
|
<p>
|
||
|
|
xmlの部分にXML形式の文字列を指定してください。
|
||
|
|
</p>
|
||
|
|
|
||
|
|
<h4>
|
||
|
|
まとめ
|
||
|
|
</h4>
|
||
|
|
|
||
|
|
<p>
|
||
|
|
私のtumblrから引用を、テキスト形式に変更して取得するには次のようにします:
|
||
|
|
</p>
|
||
|
|
|
||
|
|
<pre class="syntax-highlight">
|
||
|
|
<span class="synSpecial">(</span>use rfc.http<span class="synSpecial">)</span>
|
||
|
|
<span class="synSpecial">(</span>use sxml.ssax<span class="synSpecial">)</span>
|
||
|
|
<span class="synSpecial">(</span>use gauche.charconv<span class="synSpecial">)</span>
|
||
|
|
<span class="synComment">;; http-getは多値を返すので、多値を受け取る</span>
|
||
|
|
<span class="synComment">;; XML部分はbody部分だけのため、</span>
|
||
|
|
<span class="synComment">;; http-get の戻り値を ssax:xml->sxml するとエラーになる</span>
|
||
|
|
<span class="synComment">;; from http://torus.jp/memo/x200607/aws.rd.html</span>
|
||
|
|
<span class="synSpecial">(</span>define <span class="synSpecial">(</span>get-sxml-from-tumblr <span class="synStatement">user</span><span class="synSpecial">)</span>
|
||
|
|
<span class="synSpecial">(</span>let-values <span class="synSpecial">(((</span>status header body<span class="synSpecial">)</span>
|
||
|
|
<span class="synSpecial">(</span>http-get
|
||
|
|
<span class="synSpecial">(</span>string-append <span class="synStatement">user</span> <span class="synConstant">".tumblr.com"</span><span class="synSpecial">)</span>
|
||
|
|
<span class="synConstant">"/api/read?type=quote?filter=text"</span><span class="synSpecial">)))</span>
|
||
|
|
<span class="synComment">;; status codeが200でなければ、空リストを返す</span>
|
||
|
|
<span class="synSpecial">(</span><span class="synStatement">when</span> <span class="synSpecial">(</span><span class="synStatement">not</span> <span class="synSpecial">(</span><span class="synStatement">equal</span>? status <span class="synConstant">"200"</span><span class="synSpecial">))</span> <span class="synSpecial">'())</span>
|
||
|
|
<span class="synComment">;; XMLが返ってきていれば、 SXML に変換する</span>
|
||
|
|
<span class="synSpecial">(</span><span class="synStatement">let*</span> <span class="synSpecial">((</span>raw-in <span class="synSpecial">(</span>open-input-string body<span class="synSpecial">))</span>
|
||
|
|
<span class="synSpecial">(</span>in <span class="synSpecial">(</span>open-input-conversion-port raw-in <span class="synSpecial">'</span><span class="synIdentifier">utf-8</span><span class="synSpecial">)))</span>
|
||
|
|
<span class="synSpecial">(</span>ssax:xml->sxml in <span class="synSpecial">'()))))</span>
|
||
|
|
</pre>
|
||
|
|
|
||
|
|
<p>
|
||
|
|
このようにしてから、REPLで
|
||
|
|
</p>
|
||
|
|
|
||
|
|
<pre class="syntax-highlight">
|
||
|
|
gosh> <span class="synSpecial">(</span>get-sxml-from-tumblr <span class="synConstant">"kazu634)</span>
|
||
|
|
</pre>
|
||
|
|
|
||
|
|
<p>
|
||
|
|
とすれば取得したXMLをSXMLに変換したものが表示されます。
|
||
|
|
</p>
|
||
|
|
|
||
|
|
<div class="hatena-asin-detail">
|
||
|
|
<a href="http://www.amazon.co.jp/dp/4873113482/?tag=hatena_st1-22&ascsubtag=d-7ibv" onclick="__gaTracker('send', 'event', 'outbound-article', 'http://www.amazon.co.jp/dp/4873113482/?tag=hatena_st1-22&ascsubtag=d-7ibv', '');"><img src="https://images-na.ssl-images-amazon.com/images/I/51Exg14b4uL._SL160_.jpg" class="hatena-asin-detail-image" alt="プログラミングGauche" title="プログラミングGauche" /></a></p>
|
||
|
|
|
||
|
|
<div class="hatena-asin-detail-info">
|
||
|
|
<p class="hatena-asin-detail-title">
|
||
|
|
<a href="http://www.amazon.co.jp/dp/4873113482/?tag=hatena_st1-22&ascsubtag=d-7ibv" onclick="__gaTracker('send', 'event', 'outbound-article', 'http://www.amazon.co.jp/dp/4873113482/?tag=hatena_st1-22&ascsubtag=d-7ibv', 'プログラミングGauche');">プログラミングGauche</a>
|
||
|
|
</p>
|
||
|
|
|
||
|
|
<ul>
|
||
|
|
<li>
|
||
|
|
<span class="hatena-asin-detail-label">作者:</span> <a href="http://d.hatena.ne.jp/keyword/Kahua%A5%D7%A5%ED%A5%B8%A5%A7%A5%AF%A5%C8" onclick="__gaTracker('send', 'event', 'outbound-article', 'http://d.hatena.ne.jp/keyword/Kahua%A5%D7%A5%ED%A5%B8%A5%A7%A5%AF%A5%C8', 'Kahuaプロジェクト');" class="keyword">Kahuaプロジェクト</a>,<a href="http://d.hatena.ne.jp/keyword/%C0%EE%B9%E7%BB%CB%CF%AF" onclick="__gaTracker('send', 'event', 'outbound-article', 'http://d.hatena.ne.jp/keyword/%C0%EE%B9%E7%BB%CB%CF%AF', '川合史朗');" class="keyword">川合史朗</a>
|
||
|
|
</li>
|
||
|
|
<li>
|
||
|
|
<span class="hatena-asin-detail-label">出版社/メーカー:</span> <a href="http://d.hatena.ne.jp/keyword/%A5%AA%A5%E9%A5%A4%A5%EA%A1%BC%A5%B8%A5%E3%A5%D1%A5%F3" onclick="__gaTracker('send', 'event', 'outbound-article', 'http://d.hatena.ne.jp/keyword/%A5%AA%A5%E9%A5%A4%A5%EA%A1%BC%A5%B8%A5%E3%A5%D1%A5%F3', 'オライリージャパン');" class="keyword">オライリージャパン</a>
|
||
|
|
</li>
|
||
|
|
<li>
|
||
|
|
<span class="hatena-asin-detail-label">発売日:</span> 2008/03/14
|
||
|
|
</li>
|
||
|
|
<li>
|
||
|
|
<span class="hatena-asin-detail-label">メディア:</span> 大型本
|
||
|
|
</li>
|
||
|
|
<li>
|
||
|
|
<span class="hatena-asin-detail-label">購入</span>: 22人 <span class="hatena-asin-detail-label">クリック</span>: 713回
|
||
|
|
</li>
|
||
|
|
<li>
|
||
|
|
<a href="http://d.hatena.ne.jp/asin/4873113482" onclick="__gaTracker('send', 'event', 'outbound-article', 'http://d.hatena.ne.jp/asin/4873113482', 'この商品を含むブログ (272件) を見る');" target="_blank">この商品を含むブログ (272件) を見る</a>
|
||
|
|
</li>
|
||
|
|
</ul>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div class="hatena-asin-detail-foot">
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
</div>
|