|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander V. Gaiduk 2:5020/400 11 Jul 2003 14:37:27
To : Alexander Anikeev
Subject : Re: полный скан всех поддиректорий данной директории....
--------------------------------------------------------------------------------
> DB>> Может кто-то здесь писал скрипт, который может выполнить сканирование
> DB>> всех директорий, поддиректорий и т.д. Сложность состоит в том, что
> DB>> очень тяжело сканировать поддир. 3 и т.д. уровня..... Может кто-то
уже
> DB>> делал, хотя бы поделитесь алгоритмом решения этой задачки?
>
> AC> perldoc File::Find
>
> Есть вариант - использовать системную команду (аналог ДОСовой DIR) с
выводом в
> файл и последующей его обработкой.
>
> Alexander Anikeev
хватит извращаться :)
&scandir($startdir);
sub scandir {
my $d;
my $nd;
opendir(DIR, $_[0]);
foreach $d (sort { $a cmp $b } readdir(DIR)) {
if (($d ne ".") && ($d ne "..")) {
$nd = $_[0] . "/" . "$d";
if ( -d $nd ) {
# print "$nd\n"; # print directory names
&scandir($nd);
} else {
print "$nd\n"; # print file names
}
}
}
closedir(DIR);
}
--- ifmail v.2.15dev5
* Origin: NetAdmin Department (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
