Lisp@UNIX版 (585ﾚｽ)
上下前次1-新

---

179: 名無しさん＠お腹いっぱい。 [] 03/01/06 14:07 AA×


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
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
を使ってみた よりかなーり遅いんだが漏れ何かおかしな事してる かな？ 個のテキストファイルを処理して 秒弱 秒

---

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

---

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

---

ぬこの手 ぬこTOP 0.036s