- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #5570 [620]
От : Sergey Zotov 2:5057/56 29 января 05, 00:43
Кому : Evgeni Kubachev 12 февраля 05, 20:58
Тема : dirtree
-------------------------------------------------------------------------------
Прошёл день, а ты всё жив! Evgeni!
On 27 Jan 05, Evgeni Kubachev wrote to All:
EK> Если уже готовые скрипты по "обходу дерева каталогов"
Да чего тут может быть сложного?
my @dirs=("."); # типа начальный каталог
foreach my $d (@dirs) {
opendir(D,$d);
while(my $f=readdir(D)) {
my $p="$d\\$f";
next if (-d $p && $f=~ m/\./);
if (-d $p) { push @dirs,$p; next }
# $p - файл
}
closedir(D);
}
Пробежишься по всем каталогам начиная с текущего. ;)
ZXNet: 500:8462/1 ~/ <~ http://zxnet.da.ru/
Fido: 2:5057/56 /_ _> http://webnames.ru/
--- GoldED+/W32 1.1.4.7
* Origin: ZS-Hub of ZXNet (2:5057/56)