Lisp@UNIX版at UNIXLisp@UNIX版 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト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))))) 180:山崎渉 03/01/15 13:01 （＾＾） 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch