とりあえず, 358日目
500
はてなダイアリーにつなぐと, 500 が頻繁に出る.
また障害かな？
18時ぐらいのはなしだけど.
負荷が大きい時間帯なのかな？
5年目にして初
5年目にして初めてやっちまったよ・・・.
講義に寝坊して行けなんだ.
ありえねえ.
寝過ごしそうになったことは, 何度かあっても, 本当に寝過したのは, 今日が初.
そして, 今もありえないぐらい眠い.
さっさと寝るよ, 今日は.
まあ, 明日は休みだから, ゆっくり起きててもいいんだけどね.
とか言いながらも, こんな時間まで起きてた. あらまあ.
HDD レコーダの容量が・・・
DVD に焼くのをサボってたら,
HDD レコーダの残りの容量で録画できるのがついに, 45分になっちまった.
今日ののだめ撮ったら, DVD に焼かんと.
つーかアニメも全然見てねえ.
Yahoo!ブログ - 結城浩のYahoo!日記
またブログを開設したらしい.
この人すごいなあ.
自分の知ってる限りでも, Haskell日記, rubycoの日記, SICP日記, はてな日記, 結城浩の日記 と5つある.
これで6つ目？もっと多いかな？
ほとんど更新してないのもあるけど, ここまで複数のブログをよく使いこなせるなあ.
文章力
ブログで文章書いてて思うけど, 自分, 文章力とか語彙とかねえなあと思う.
今日も上手く文をまとめられたと思えないし.
まあ, ブログを毎日書くことで, 文章書く練習にはなってるかなあ. なってるといいな.
更新時刻
- 1かいめ 2007年, 4月27日, 3:50
- 2かいめ 2007年, 4月27日, 3:53
elisp で http client + とってきた http ソースから必要な部分を正規表現でぶっこ抜く
まだ, 完成ではないけど,
翻訳したい文字列を翻訳サイトに送って, その結果を http のソースでもらい,
そして, 必要な翻訳結果の部分のみを正規表現で抜きとる, ここまでできた.
ほぼオッケーといいたいところだけど, うーん・・・なんだよなあ.
とりあえず, ソース.
ソース
;;; -*- Coding: iso-2022-7bit -*- ;; http client を作ってみるテスト (defvar text-translator-site-data-list '(("excite_enja" "www.excite.co.jp" "POST /world/english/ HTTP/1.0" "wb_lp=ENJA&before=%s" japanese-shift-jis-dos "<input type=\"hidden\" name=\"after\" value=\"\\([^\"]*\\)") ("excite_jaen" "www.excite.co.jp" "POST /world/english/ HTTP/1.0" "wb_lp=JAEN&before=%s" japanese-shift-jis-dos "<input type=\"hidden\" name=\"after\" value=\"\\([^\"]*\\)") ("google_enja" "translate.google.com" "POST /translate_t HTTP/1.0" "langpair=en|ja&ie=utf-8&oe=utf-8&text=%s" utf-8-dos "<div id=result_box dir=ltr>\\([^<]*\\)") ("google_jaen" "translate.google.com" "POST /translate_t HTTP/1.0" "langpair=ja|en&ie=utf-8&oe=utf-8&text=%s" utf-8-dos "<div id=result_box dir=ltr>\\([^<]*\\)") ("altavista_enja" "babelfish.altavista.com" "POST /tr HTTP/1.1" "doit=done&intl=1&tt=urltext&trtext=%s&lp=en_ja&btnTrTxt=Translate" utf-8-dos " <td class=s><input type=hidden name=\"q\" value=\"\\([^\"]*\\)") ("altavista_jaen" "babelfish.altavista.com" "POST /tr HTTP/1.1" "doit=done&intl=1&tt=urltext&trtext=%s&lp=ja_en&btnTrTxt=Translate" utf-8-dos " <td class=s><input type=hidden name=\"q\" value=\"\\([^\"]*\\)"))) (defvar text-translator-wait-second 2) (defun text-translator-client (type string) "指定したサイトに翻訳したい語句を投げ, 翻訳結果を受け取る関数." (let* ((buf "*http fetch*") (proc (open-network-stream "Web Connection" buf (nth 1 type) 80)) (enc-str (text-translator-url-encode-string string (nth 4 type))) (post-str (progn (string-match "%s" (nth 3 type)) (replace-match enc-str nil nil (nth 3 type))))) (with-current-buffer (get-buffer-create buf) (erase-buffer) (set-process-coding-system proc (nth 4 type) 'binary) (process-send-string proc (format "%s%s%s%s%s%s%s%s%s%s%s%s%s" (nth 2 type) "\r\n" (concat "HOST: " (nth 1 type)) "\r\n" "Accept-Charset: Shift_JIS,utf-8;q=0.7,*;q=0.7\r\n" "Content-Type: application/x-www-form-urlencoded\r\n" "Content-Length: " (string-bytes post-str) "\r\n" "\r\n" post-str "\r\n" "\r\n")) (sleep-for text-translator-wait-second) (re-search-backward (nth 5 type)) (match-string 1)))) (text-translator-client (nth 1 text-translator-site-data-list) "日本語") ;; google2.el より拝借. (defun text-translator-url-encode-string (str &optional coding) (apply (function concat) (mapcar (lambda (ch) (cond ((eq ch ?\n) ; newline "%0D%0A") ((string-match "[-a-zA-Z0-9_:/]" (char-to-string ch)) ; xxx? (char-to-string ch)) ; printable ((char-equal ch ?\x20) ; space "+") (t (format "%%%02X" ch)))) ; escape ;; Coerce a string to a list of chars. (append (encode-coding-string (or str "") (or coding 'iso-2022-jp)) nil)))) ;; end
実行するには, 上のコードの中にある, この関数,
(text-translator-client (nth 1 text-translator-site-data-list) "日本語")
これを実行すればオッケー.
nth の引数は, 0から5までを今のところ取る.
0,1 が excite. 2,3 が google. 4,5 が altavista.
ちなみに, google2.el より拝借したという関数の元の関数は, w3m-url-encode-string みたいです.
問題点
何が微妙か.
関数 text-translator-client の中の下の方に, sleep-for 使ってる.
ここでは, 2秒間動作を止めて待つ, というとをさせてる.
なんで使ってるか. そうしないと上手くいかない・・・.
これ使わなかったら, re-search-backward で取ってこれない.
たぶん, process-send-string を使ってソースを取得し終わってから, re-search-backward が実行されるんじゃないんだと思う.
だから, バッファに文字列を出力してる最中に, 次の re-search-backward が実行される.
そして, マッチする部分が無い, という結果になるんだと思う.
2秒待つってだって, 2秒待って上手くいくかどうかも微妙だからねえ.
どうにかならないもんかなあ.
また, ruby script に戻すか？ そうすれば少くともこういう事態にはならんと思うけど.
更新時刻
2007年, 4月27日, 3:50
*Help* から elisp ファイルにアクセスできなくなってた
普通, C-h f とかで, 関数のヘルプを見るとそこから,
その関数の定義元のソースファイルに飛べるようになってる.
でも, それが何故かできなくなってた.
それで調べてみたら, Debian で emacs-snapshot を入れて使ってるのが関係してたっぽい.
/usr/share/emacs-snapshot/site-lisp 以下に入る elisp パッケージ群の
elisp が一部を除き, 軒並, help-for-help から el ファイルにアクセスできなくなってた.
中を見てみたら, elc ファイルしか無かった.
そりゃアクセスできないよね.
この /usr/share/emacs-snapshot/site-lisp ディレクトリには,
apt で追加した elisp のパッケージが入るみたいだから, モノによっては,
emacs-snapshot のディレクトリまで elisp ファイルを追加してくれなかったぽい.
でも, ちょっと調べてみたら, /usr/share/emacs/site-lisp 以下には, ちゃんと el ファイルもあった.
だから, そこにあるのを snapshot の site-lisp 以下にコピーしたり,
シンボリックリンク貼ったりで対処したら, ちゃんと help-for-help から el にアクセスできるようになった.
よかったよかった.
更新時刻
2007年, 4月27日, 3:50
