find:: モジュールを使いたいのですが、

おかゆきお [E-Mail] 2000/03/29(水) 06:05:45
　ならうよりなれろというところで、

モジュールを動かして見ました。　何も出力されません。

    @ARGV = qw(.) unless @ARGV;　＜ここのピリオドは、
　　　　　　　　　　　　　　カレントデレクトリのことでしょうか
    use File::Find;
    find sub { print $File::Find::name, -d && '/', "\n"
                ; dbug ;＜モニタ用に　エラーファイル出力
                        出力内容を＠ＡＲＧＶとしてみたのですが、
                        何も出力されません。
     }, @ARGV;
　上のサンプルで　＄Ｆｉｌｅ：：というのは、どこかで定義してやらなけ
ればいけないのでしょうか？
　まずブラウザから、　ファイルネームを入力して、それを探させようと思います。

#　This finds all bogus symbolic links beneath a particular directory:
                　にせ、いんちきのシンボリックリンクとは　なんですか？

    find sub { print "$File::Find::name\n" if -l && !-e }, $dir;

　モジュールを使えると、いろいろ出来るのでは？　と、目論んで
おります。なまずとか実例があるので、がんばろうと……。

おかゆきお 2000/04/02(日) 00:57:21
[[解決]]
　Ｆｉｎｄ：：モジュール動きました。
　パールクィックリファレンス　２０００ねん３月　初版、発見。
４５００円は高い！　これでパール使わなかったら……！　　それを参考に、使えました。
　この関数面白いですね。　サブに向かって、開始デレクトリから、
ひとつづつ、＄＿で、全部のファイルネームを、　もっていくんですね。
　ぎゃくに、どうやって検索ファイル名を渡すのか？　と、考えてい
た。……ぎゃく。　
なんか頭柔らかくなったような……。
（容量オーバー？？か　）/(;_;)n

[上に] [前に] [次に]