perlのFile::Findの処理について

Question

findで2階層以下のファイルも出力するにはどうすればいいか知りたいです。

フォルダ構成は以下です

スクリプト

#!/usr/bin/perl --

use strict;
use File::Find;

find(\&process, "httpdocs");

sub process{
	print $File::Find::name . "\n";
}

実行した出力は以下

test.html、ok.htmlも出力したいです。

httpdocs
httpdocs/index.html
httpdocs/test
httpdocs/test2

以下のリンクでは再帰的に処理と説明しているので、
test.html、ok.htmlも出力してくれると思っていたのですがうまく行きません。

https://tutorial.perlzemi.com/blog/20080530121229.html

ヒントでもいいので助けて頂けると助かります。

追記

root@8c170ce2fb8a:/var/www/perl_test# perl perl_test_find.pl 
httpdocs
httpdocs/index.html
httpdocs/test
httpdocs/test2

root@8c170ce2fb8a:/var/www/perl_test/httpdocs# ls -l
total 1
-rwxr-xr-x 1 root root 274 Aug 22 11:51 index.html
drwxrwxrwx 2 root root   0 Aug 22 11:34 test
drwxrwxrwx 2 root root   0 Aug 22 11:34 test2

root@8c170ce2fb8a:/var/www/perl_test/httpdocs/test# ls -l
total 1
-rwxr-xr-x 1 root root 276 Aug 22 11:17 test.html

Comments

[y_waiwai]

うまくいかないとはどうなるんでしょうか

Answer 1

httpdocs/testなどの読み取りアクセス権が無いのでは？

Comments

[makibi5577]

解答ありがとうございます。確認しましたが、アクセス権限は問題なさそうです…

Answer 2

以下でいけました。

find({ wanted => \&process, follow => 10 }, 'httpdocs');

findのデフォルト値が設定されてたようです。
デフォルト値がなぜ1だったのかはわかりません。
perlのデフォルト値設定ファイルでもあるのでしょうか。

Comments

[otn]

follow を指定して変わったという事は、httpdocs/test はディレクトリじゃなくて、ディレクトリへのシンボリックリンクだったと言うことですか？
デフォルトだと、シンボリックリンクをたどりませんが、普通のディレクトリは再帰的に全部たどります。

[makibi5577]

dockerでmountしてるファイル群は、シンボリックリンクだったのでそのような挙動になったんですね。理解深まりました。ありがとうございます。

[otn]

シンボリックリンクをつかうとディレクトリのループがあり得るので、
この手の、ディレクトリを下までたどる系は、デフォルトではシンボリックリンクをたどりません。