おかゆきお
[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;
モジュールを使えると、いろいろ出来るのでは？ と、目論んで
おります。なまずとか実例があるので、がんばろうと……。