Как я могу изменить свой сценарий, чтобы перечислять файлы в подпапках тоже?

Question

Я хочу изменить свой сценарий, чтобы вывести список файлов в подпапках.Допустим, я выбрал папку / lib64. Я бы тоже хотел выполнить поиск по подпапкам. Спасибо за вашу помощь.

Мне нужна помощь только для того, чтобы перечислить не только данную папку, но и подфолферы

Под моим сценарием работает без проблем ....

#!/usr/bin/perl -w

system("clear");
my $dev;
my $ino;
my $mode;
my $nlink;
my $uid;
my $gid;
my $rdev;
my $size;
my $atime;
my $mtime;
my $ctime;
my $blksize;
my $blocks;
my $perm;
my $tmp1;
my $tmp2;
clear;

print " \n";
print "Please enter the Directory you want to list : ";
my $dir = <STDIN>;
chomp $dir;
print "Directory selected is ------------> $dir | \n \n";

print "Please enter the minimum size (in bytes) of files you want to list 
: ";
my $sz = <STDIN>;
chomp $sz;
print "Minimal size of files (in bytes)-----------------> $sz | \n \n";
print "...........Please wait, preparing the file listing....... \n \n";

sleep 6;

opendir (DIR, $dir ) or die "Cannot open $dir";

while (my $file = readdir(DIR)) {

($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
     $atime,$mtime,$ctime,$blksize,$blocks) = stat("$dir/$file");


$perm = sprintf("%04o", $mode & 07777);
$tmp1 = int(($size/$sz));
$tmp2 = length($file);


if (($tmp1 > $tmp2) && ($perm =~ /.[^5410]../)) {

    print "List of files in --> $dir | ";
    print("File Name: -$file- | Size in bytes -$size- \n");
}
}

closedir(DIR);

Answer 1

Вот пример рекурсивной итерации с использованием Path :: Iterator :: Rule . Кроме того, File :: stat - намного более простой интерфейс для полей статистики.

use strict;
use warnings;
use Path::Iterator::Rule;
use File::Basename;
use File::stat;

print "Please enter the Directory you want to list : ";
chomp(my $dir = readline *STDIN);
print "Please enter the minimum size (in bytes) of files you want to list : ";
chomp(my $sz = readline *STDIN);

my $rule = Path::Iterator::Rule->new->not_dir->size(">=$sz");
my $next = $rule->iter($dir);
while (defined(my $file = $next->())) {
  my $stat = stat $file or die "Failed to stat $file: $!";
  my $mode = $stat->mode;
  my $size = $stat->size;
  my $basename = basename $file;
  ...
}