Lisp@UNIX版 (585ﾚｽ)

Lisp@UNIX版 http://mevius.5ch.net/test/read.cgi/unix/1019926525/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞

---

179: 名無しさん＠お腹いっぱい。 [] 03/01/06 14:07 clawk を使ってみた．awk よりかなーり遅いんだが，漏れ何かおかしな事してる かな？（500 個のテキストファイルを処理して awk: 2 秒弱 clawk: 35 秒） (defmacro $gsub! (pattern replacement &optional (source '$0)) `(setf ,source ($gsub ,pattern ,replacement ,source))) (defun html2txt () ($gsub! "<[^>]*>" "") ($gsub! ">" ">") ($gsub! "<" "<") ($gsub! """ "\"") ($gsub! " " " ") ($print $0)) (defvar flag nil) (defawk egroup->txt () (BEGIN (setf flag nil)) (#/^<\/pre>/ (setf flag nil)) (t (if flag (html2txt))) (#/^<!-- Body !-->/ (setf flag t))) (defun convert () (with-open-file (f "./output.txt" :direction :output) (let ((*standard-output* f)) (dolist (p (directory "home:doc/ML/emacs21/")) (egroup->txt p))))) http://mevius.5ch.net/test/read.cgi/unix/1019926525/179

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

あと 406 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.013s