Forum Webscript.Ru

Программирование => Perl => Тема начата: Steve от 13 Ноября 2001, 07:59:53

Название: Рекурсивный обход каталогов.
Отправлено: Steve от 13 Ноября 2001, 07:59:53

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

Название: Рекурсивный обход каталогов.
Отправлено: lodevar от 13 Ноября 2001, 10:11:19

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

Название: Рекурсивный обход каталогов.
Отправлено: Steve от 13 Ноября 2001, 10:14:50

Цитировать

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

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

Название: Рекурсивный обход каталогов.
Отправлено: Haze от 13 Ноября 2001, 11:56:34

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

Название: Рекурсивный обход каталогов.
Отправлено: Johnny от 13 Ноября 2001, 17:37:18

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

Название: Рекурсивный обход каталогов.
Отправлено: vladsu от 13 Ноября 2001, 18:26:58

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!

Название: Рекурсивный обход каталогов.
Отправлено: от 26 Ноября 2001, 21:34:39

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

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";
}

ююю

Название: Рекурсивный обход каталогов.
Отправлено: от 26 Ноября 2001, 21:44:41

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

ююю