|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Serguei Trouchelle 2:550/357.1 10 Jul 2003 15:14:34
To : Denis Bolotnov
Subject : полный скан всех поддиректорий данной директории....
--------------------------------------------------------------------------------
DB> Может кто-то здесь писал скрипт, который может выполнить
DB> сканирование всех директорий, поддиректорий и т.д.
DB> Сложность состоит в том, что очень тяжело сканировать поддир. 3 и
DB> т.д. уровня.....
sub ListAndRecurse {
my $dir = shift;
if (opendir DIR, $dir) {
my @dir = readdir(DIR);
my @dirs = grep { !/(^\.$)|(^\.\.$)/ && -d "$dir\\$_" } @dir;
foreach (@dirs) {
print " ю Searching directory: $dir\\$_ ... \n";
ListAndRecurse("$dir\\$_");
}
# [ ... ] Здесь сканиpуем каталог.
closedir DIR
} else {
# Cannot read directory
}
}
Serguei Trouchelle
--- timEd/386 1.10.y2k+
* Origin: Was sollen wir trinken Sieben Tage lang... (2:550/357.1)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
