Рекурсивный обход каталогов.

[Steve]

Как организовать на перле субж?

[lodevar]

А в хеш массивов запихныть не проще?

[Steve]

А в хеш массивов запихныть не проще?

да мне без разницы, примерчик бы, плохо перл знаю...
__________________
С наилучшими пожеланиями. LODEVAR
http://lodevar.hut.ru/cgi-bin/main.cgi

[Haze]

http://ncity.ebn.com.ua/vbb/showthread.php?s=&threadid=478&pagenumber=1

[Johnny]

perldoc -f opendir
perldoc -f readdir
perldoc File::Find

[vladsu]

Hi.

Vot tebe primer, sper s odnogo foruma, nadeyus\' autor ne obidetsya ya ego imya zabi\'l

Код: [Выделить]


my $stat = 0;
my $s_root = \'c:/perl\';
my $count_f = 0;
my $count_d = 0;

sub dir_ls {
         my $save_dir;
         my $root = shift;
         local *DIR_LS;

         opendir DIR_LS ,$root;

         while (my $file = readdir (DIR_LS) ) {
                next if $file =~ /^\\.\\.?$/;
                print "$root/$file\\n";
                if (-d "$root/$file") {
                    $count_d++;
                    dir_ls ("$root/$file");
                } else {
                    $count_f++;
                }
         }
}
dir_ls ($s_root);
print "\\n\\nTotal -\\nDirs: $count_d\\nFiles: $count_f\\n";



Udachi!

Казахский вариант

print "введите путь к идексируемой дирректории\\n";
$fds=;
chomp($fds);
print "введите путь и имя фаиля для результата\\n";
$sa=;
chomp($sa);
@fd=$fds;
open (OUT, ">>$sa");
for $sx (@fd){
chdir("$sx");
while(<*>) {
push @fd, "$sx$_/"  if -d ;
@fd=sort(@fd);
}
}
for(@fd){
print OUT "$_\\n";
}

ююю

Да и в качестве примера работы прошу попользуйте скрипт который делает следующие Задача
"порога генерила один хтмл, с сылками на остальные. Название ссылки должно быть из строчки между тегами , а ссылаться на тот qwerty.htmlНадеюсь понятно."
рещение здесь http://web.host.kz/perl/index3.txt

ююю