Я смотрел на PerlFile::Find модуль и попробовал его следующим образом:

#!/usr/bin/perl

use warnings;
use strict;

use File::Find;

find({wanted => \&listfiles,
        no_chdir => 1}, ".");


sub listfiles{
    print $File::Find::name,"\n";
}

Теперь, когда я запускаю его, я получаю следующий вывод:

Noob@Noob:~/tmp$ perl test.pl 
.
./test.txt
./test.pl
./test1.txt
./hello
./hello/temp.txt

Теперь я думал, что установивno_chdir=>1 Я сделаю свой код, чтобы не входить ни в один каталог, если он натолкнулся на один. Но вывод ясно показывает, что мой код входитhello каталог и список его файлов.

Итак, как мне изменить свой код, чтобы вести себя какls и не входить ни в один каталог. Также я получаю./ перед моими именами файлов / каталогов это можно удалить?

Я использую Perl 5.14.