シンボリックリンクを検出できない問題

あるディレクトリの下のリンク以外を抽出しようとして以下のようにファイルテスト演算子を使用してみたのですが、どうやらシンボリックリンクかどうかを上手く識別できていない様子です。
どうしてなのでしょうか？またどのようにしたら宜しいのでしょうか？


#! /bin/perl

opendir(MYVECT,"./myvect" ) || die "cannot open myvect";

while($name = readdir(MYVECT)){
if(! -l $name){
print "$name\n";
}
}
exit;


# ls -l myvect
lrwxrwxrwx aaa.vr -> test.vr

# myperl.pl
test.vr
aaa.vr

よろしくお願い致します。

No.1 ベストアンサー 回答者： tatsu99 回答日時： 2003/11/02 00:07

if(! -l $name){ の判定は、

myvectのディレクトリ下で行っていません。
従って、aaa.vrは存在しないファイルとして扱われる為、正しい結果となりません。
以下の何れかの方法をとってください。
方法１：myvectへ移動後、ファイルテストをする
chdir("./myvect");
opendir(MYVECT,"." ) || die "cannot open myvect";
以降同様
方法２：
ファイルテストを以下のようにする。
if(! -l "./myvect/$name"){

この回答へのお礼

お礼非常に遅くなり、どうもすみませんでした。ありがとう御座います。

お礼日時：2004/06/08 16:18

No.2 回答者： mosuradazo 回答日時： 2003/12/01 08:22

open(FD,"find . -follow -print|");

@a = <FD>;
close(FD);
ではだめですか。