我在下面的代码中使用File::Find从/home/user/data
路径中查找文件。
use File::Find;
my $path = "/home/user/data";
chdir($path);
my @files;
find(\&d, "$path");
foreach my $file (@files) {
print "$file\n";
}
sub d {
-f and -r and push @files, $File::Find::name;
}
当我将 dir 路径更改为我需要搜索文件的路径时,它仍然为我提供了具有完整路径的文件。IE
/home/user/data/dir1/file1
/home/user/data/dir2/file2
and so on...
但我想要像这样的输出
dir1/file1
dir2/file2
and so on...
谁能建议我仅从当前工作目录中查找文件和显示的代码?