namazu-ml(avocado)

[Satoru Takabayashi <ccsatoru@xxxxxxxxxxxxxxxxxx>]

kita@xxxxxxxxxxxxxxxxxxxx (喜多 淳一郎) wrote:

>> % find /var/spool/news/hoge -print > tmp
>> % grep -v '/var/spool/news/hoge/baz' tmp > list
>> % mknmz -F list
>> 
>> ではダメでしょうか？
>
>なるほど．
>でも，毎回毎回 find でリストを作るのもなんか．．．
>できれば list の中には
>/var/spool/news/hoge/foo/
>/var/spool/news/hoge/bar/
>とディレクトリも書けるようになるとうれしいです．

(snip)

>おそらく，@FList を先頭からなめてって，ディレクトリなら chdir して
>find::findfiles するのが一番修正が少なくてよろしいかと思います．

それが良さそうです。そのうち対応します。


># 最初は findfiles が(性格には find:find) が cwd() に依存しているとは
># 思わなかったので，なにやってるのかさっぱり分かりませんでした．

ちなみに find 関連は Perl4 の find.pl から引っ張ってきました。


># 私なら極力グローバル変数は減らして，関数の引数ににリファレンスを渡す
># 方法を取りますが，これはこれで dereference の嵐になって読みにくいか
># もしれませんね．

package main; の方はだいたいそうなっています。もっと整頓したいので
すけど…。

-- Satoru Takabayashi