Как я могу перечислить все файлы в каталоге с Perl? [дубликат]
NSArray *array = [mutableArray copy];
Copyделает неизменные копии. Это очень полезно, потому что Apple может делать различные оптимизации. Например, отправкаcopyв неизменяемый массив только сохраняет объект и возвращаетself.Если вы не используете сборщик мусора или ARC, помните, что
-copyсохраняет объект.
5 ответов
Если вы хотите получить содержимое данного каталога и только его (т.е. без подкаталогов), лучше всего использовать opendir / readdir / closedir:
opendir my $dir, "/some/path" or die "Cannot open directory: $!";
my @files = readdir $dir;
closedir $dir;
Вы также можете использовать:
my @files = glob( $dir . '/*' );
Но, на мой взгляд, это не так хорошо - в основном потому, что glob - довольно сложная вещь (может автоматически фильтровать результаты) и использование ее для получения всех элементов каталога кажется слишком простой задачей.
С другой стороны, если вам нужно получить контент из всех каталогов и подкаталогов, в основном есть одно стандартное решение:
use File::Find;
my @content;
find( \&wanted, '/some/path');
do_something_with( @content );
exit;
sub wanted {
push @content, $File::Find::name;
return;
}
readdir () делает это.
Проверьте http://perldoc.perl.org/functions/readdir.html
opendir(DIR, $some_dir) || die "can't opendir $some_dir: $!";
@dots = grep { /^\./ && -f "$some_dir/$_" } readdir(DIR);
closedir DIR;
Или File :: Find
use File::Find;
finddepth(\&wanted, '/some/path/to/dir');
sub wanted { print };
Он будет проходить через подкаталоги, если они существуют.
это должно сработать.
my $dir = "bla/bla/upload";
opendir DIR,$dir;
my @dir = readdir(DIR);
close DIR;
foreach(@dir){
if (-f $dir . "/" . $_ ){
print $_," : file\n";
}elsif(-d $dir . "/" . $_){
print $_," : folder\n";
}else{
print $_," : other\n";
}
}
Будет перечислено все (включая подкаталоги) из указанного вами каталога в порядке и с атрибутами. Я целыми днями искал что-нибудь, чтобы сделать это, и я взял части из всего этого обсуждения и немного своего, и собрал их воедино. НАСЛАЖДАЙТЕСЬ !!
#!/usr/bin/perl --
print qq~Content-type: text/html\n\n~;
print qq~<font face="arial" size="2">~;
use File::Find;
# find( \&wanted_tom, '/home/thomas/public_html'); # if you want just one website, uncomment this, and comment out the next line
find( \&wanted_tom, '/home');
exit;
sub wanted_tom {
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat ($_);
$mode = (stat($_))[2];
$mode = substr(sprintf("%03lo", $mode), -3);
if (-d $File::Find::name) {
print "<br><b>--DIR $File::Find::name --ATTR:$mode</b><br>";
} else {
print "$File::Find::name --ATTR:$mode<br>";
}
return;
}