forum.opennet.ru

Форум Программирование под UNIX (Perl)
Вариант для распечатки		Пред. тема \| След. тема
Режим отображения отдельной подветви беседы		[ Отслеживать ]

Оглавление

получить дерево каталогов с заданием корневого каталога, Александр (??), 08-Янв-14, (0) [смотреть все]

my contents sub read_directorys_tree my dir, tmp _ my arr , Александр (??), 17:12 , 08-Янв-14, (1)
Google perl ARGV ARGC, pavlinux (ok), 18:59 , 08-Янв-14, (2) //

я так понимаю проблема в самой рекурсии, я набросал простой код, для проверки m, Александр (??), 19:45 , 08-Янв-14, (3)

code usr bin perluse strict use warnings my dirs my path shift dir pat, михалыч (ok), 20:31 , 08-Янв-14, (4) //

Спасибо за помощь, но такое решение я и Сам изначально написал, вопрос в том, ч, Александр (??), 21:07 , 08-Янв-14, (5) //

Кхм Ну получили массив, а выводить как будете Типа вещь в себе Тогда так code , михалыч (ok), 21:15 , 08-Янв-14, (6) //

my a sub test_rec my end, ref _ my arr push arr, ref if ref p, Александр (??), 12:37 , 09-Янв-14, (7)

Я давно на перле не пЕсал - но чет мне кажется что возвращать ссылку на массив к, Pahanivo (ok), 08:12 , 10-Янв-14, (8)

Да, согласен Область видимости переменных никто не отменял Всё дело в рекурсии, , михалыч (ok), 10:25 , 10-Янв-14, (9)

А вам обязательно юзать свой код На CPAN полно же готовых модулей File Find F, pavlinux (ok), 16:28 , 10-Янв-14, (10)

дайти людям вдоволь поеб ься, чеж вы их советами то мучаете , Pahanivo (ok), 23:19 , 10-Янв-14, (11)

Я наконец-то реализовал то что хотел, вот код code sub collect_directorys_tree , Александр (??), 14:38 , 12-Янв-14, (12)

ещё вариант яиц code usr bin perluse strict use warnings my path shift , михалыч (ok), 20:31 , 12-Янв-14, (13)
Учебная задача сделана, но в боевую систему такое ставить нельзя - дерево може, ACCA (ok), 21:13 , 13-Янв-14, (14)

согласен с вами, михалыч (ok), 08:31 , 14-Янв-14, (15)

Сообщения [Сортировка по времени | RSS]

4. "получить дерево каталогов с заданием корневого каталога" +/–

Сообщение от михалыч (ok), 08-Янв-14, 20:31

> Помогите пожалуйста состовить скрипт которому возможно скормить в качестве параметра корневой каталог для составления дерева подкаталогов. спасибо!
#!/usr/bin/perl
use strict;
use warnings;
my @dirs;
my $path = shift;
&dir($path);
sub dir($) {
    my $dir = shift;
    my $dh;
    opendir $dh, $dir;
    while ( my $sub = readdir $dh) {
        next if $sub =~ /^\.\.?$/;
        push @dirs, "$dir/$sub" if -d "$dir/$sub";
        &dir("$dir/$sub") if -d "$dir/$sub";
    }
    closedir $dh;
}
for(@dirs){print $_,"\n";}

Ответить | Правка | Наверх | Cообщить модератору

5. "получить дерево каталогов с заданием корневого каталога" +/–

Сообщение от Александр (??), 08-Янв-14, 21:07

>
#
> my @dirs;
> sub dir($) {
>         push @dirs, "$dir/$sub" if
> }

#Спасибо за помощь, но такое решение я и Сам изначально написал, вопрос в том, что бы не использовать массив объявленный до рекурсивной функции.

Ответить | Правка | Наверх | Cообщить модератору

6. "получить дерево каталогов с заданием корневого каталога" +/–

Сообщение от михалыч (ok), 08-Янв-14, 21:15

> #Спасибо за помощь, но такое решение я и Сам изначально написал, вопрос
> в том, что бы не использовать массив объявленный до рекурсивной функции.
Кхм.. Ну получили массив, а выводить как будете?
Типа вещь в себе?
Тогда так
#!/usr/bin/perl
use strict;
use warnings;
my $path = shift;
&dir($path);
sub dir($) {
    my $dir = shift;
    my $dh;
    opendir $dh, $dir;
    while ( my $sub = readdir $dh) {
        next if $sub =~ /^\.\.?$/;
        no strict;
        push @dirs, "$dir/$sub" if -d "$dir/$sub";
        &dir("$dir/$sub") if -d "$dir/$sub";
    }
    closedir $dh;
}
no strict;
for(@dirs){print $_,"\n";}

Ответить | Правка | Наверх | Cообщить модератору

7. "получить дерево каталогов с заданием корневого каталога" +/–

Сообщение от Александр (??), 09-Янв-14, 12:37

> Кхм.. Ну получили массив, а выводить как будете?
> Типа вещь в себе?
>
my $a;
sub test_rec {
    my ($end, $ref) = @_;
    my @arr;
    push @arr, $ref if ($ref);
    push @arr, $end;
    for(my $i =1; $i < $end; $i++) {
        test_rec($end - $i, \@arr);
    }
    return \@arr;
}
$a = test_rec(2, $a);
print "\n\n@{$a}"."\n\n";
print @_."\n" for @{$a};

Давайте для начала измению немного задачу, не будем привязываться к дереву папок, с этим у меня вопрососв нет.
На данный момент вопрос в рекурсии, например приведенный выше пример скрипта, как я понимаю должен возвращать масив по ссылке (return \@arr;), пробовал и по значению, всё равно не работает.
Вся "магия" происходит на этапе return, при каждой итерации рекурсии, удаляется по одному элементу их массива.

Ответить | Правка | Наверх | Cообщить модератору

8. "получить дерево каталогов с заданием корневого каталога" +/–

Сообщение от Pahanivo (ok), 10-Янв-14, 08:12

> sub test_rec {
> ...
> ...
>  my @arr;
> ...
>  return \@arr;
> }
Я давно на перле не пЕсал - но чет мне кажется что возвращать ссылку на массив который объявлен как "my" внутри блока не есть гут ))

Ответить | Правка | Наверх | Cообщить модератору

9. "получить дерево каталогов с заданием корневого каталога" +/–

Сообщение от михалыч (ok), 10-Янв-14, 10:25

> Я давно на перле не пЕсал - но чет мне кажется что
> возвращать ссылку на массив который объявлен как "my" внутри блока не
> есть гут ))
Да, согласен!
Область видимости переменных никто не отменял.
Всё дело в рекурсии, каждый вызов объявляет новый манипулятор каталога и новый массив.
Короче, не прокатит.
Массивов бояться на перле не пейсать ))
Мы боимся и потому почти обойдёмся без них.
Вот те же яица, вид профиль с циклом for, без массива для "складирования" полученных директорий и с живым print'ом ))
#!/usr/bin/perl
use strict;
use warnings;
my $path = $ARGV[0] || "/home";
sub tree {
    my $root = shift;
    my $dh;
    opendir $dh, $root;
    my @dir = readdir $dh;
    closedir $dh;
    for my $subdir (@dir) {
        next if $subdir eq "." or $subdir eq "..";
        print "$root/$subdir\n" and tree("$root/$subdir") if -d "$root/$subdir";
    }
}
tree $path;

Ответить | Правка | Наверх | Cообщить модератору

10. "получить дерево каталогов с заданием корневого каталога" +/–

Сообщение от pavlinux (ok), 10-Янв-14, 16:28

> Вся "магия" происходит
А вам обязательно юзать свой код? На CPAN полно же готовых модулей.
File::Find;
File::Next;

use File::Next;
    my $iter = File::Next::dirs(@ARGV[0]);
    while ( defined ( my $dirs = $iter->() ) ) {
        print $dirs, "\n";
    }

Ответить | Правка | К родителю #7 | Наверх | Cообщить модератору

11. "получить дерево каталогов с заданием корневого каталога" +/–

Сообщение от Pahanivo (ok), 10-Янв-14, 23:19

> А вам обязательно юзать свой код? На CPAN полно же готовых модулей.
дайти людям вдоволь поеб**ься, чеж вы их советами то мучаете )))

Ответить | Правка | Наверх | Cообщить модератору

12. "получить дерево каталогов с заданием корневого каталога" +/–

Сообщение от Александр (??), 12-Янв-14, 14:38

Я наконец-то реализовал то что хотел, вот код:

sub collect_directorys_tree {
    my ($root) = @_;

    my @res;
    push @res, "$root" if ( -d "$root" );
    opendir my($dh), $root;
    my @dir = readdir $dh;
    closedir $dh;
    if(@dir == 2) { return @res }
    for my $subdir (@dir) {
        next if $subdir eq "." or $subdir eq "..";
        push @res, collect_directorys_tree("$root\\$subdir") if ( -d "$root\\$subdir" );
    }
    return @res;
}

#всем спасибо за помощь!

Ответить | Правка | Наверх | Cообщить модератору

13. "получить дерево каталогов с заданием корневого каталога" +/–

Сообщение от михалыч (ok), 12-Янв-14, 20:31

ещё вариант яиц ))
#!/usr/bin/perl
use strict;
use warnings;
my $path = shift || "/home";
sub tree {
    my $root = shift;
    my $dirs = shift;
    opendir my($dh), $root;
    while (my $subdir = readdir $dh) {
        next if $subdir eq "." or $subdir eq "..";
        push @$dirs, "$root/$subdir" if -d "$root/$subdir";
        tree("$root/$subdir", $dirs) if -d "$root/$subdir";
    }
    closedir $dh;
    return @$dirs;
}
print $_,"\n" for my @tree_dirs = tree $path;

Ответить | Правка | Наверх | Cообщить модератору

14. "получить дерево каталогов с заданием корневого каталога" +/–

Сообщение от ACCA (ok), 13-Янв-14, 21:13

Учебная задача сделана, но в боевую систему такое ставить нельзя.
  - дерево может в память не влезть
  - в дереве могут оказаться симлинки
  - и даже рекурсивные симлинки

Ответить | Правка | К родителю #12 | Наверх | Cообщить модератору

15. "получить дерево каталогов с заданием корневого каталога" +/–

Сообщение от михалыч (ok), 14-Янв-14, 08:31

> Учебная задача сделана, но в боевую систему такое ставить нельзя.
>   - дерево может в память не влезть
>   - в дереве могут оказаться симлинки
>   - и даже рекурсивные симлинки
согласен с вами

Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить

Рекомендовать для помещения в FAQ | Индекс форумов | Темы | Пред. тема | След. тема

Партнёры:

Хостинг:

Закладки на сайте
Проследить за страницей

Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру

4. "получить дерево каталогов с заданием корневого каталога"	+/–
Сообщение от михалыч (ok), 08-Янв-14, 20:31
> Помогите пожалуйста состовить скрипт которому возможно скормить в качестве параметра корневой каталог для составления дерева подкаталогов. спасибо! #!/usr/bin/perl use strict; use warnings; my @dirs; my $path = shift; &dir($path); sub dir($) { my $dir = shift; my $dh; opendir $dh, $dir; while ( my $sub = readdir $dh) { next if $sub =~ /^\.\.?$/; push @dirs, "$dir/$sub" if -d "$dir/$sub"; &dir("$dir/$sub") if -d "$dir/$sub"; } closedir $dh; } for(@dirs){print $_,"\n";}
Ответить \| Правка \| Наверх \| Cообщить модератору


	5. "получить дерево каталогов с заданием корневого каталога"	+/–
	Сообщение от Александр (??), 08-Янв-14, 21:07
	> # > my @dirs; > sub dir($) { > push @dirs, "$dir/$sub" if > } #Спасибо за помощь, но такое решение я и Сам изначально написал, вопрос в том, что бы не использовать массив объявленный до рекурсивной функции.
	Ответить \| Правка \| Наверх \| Cообщить модератору


	6. "получить дерево каталогов с заданием корневого каталога"	+/–
	Сообщение от михалыч (ok), 08-Янв-14, 21:15
	> #Спасибо за помощь, но такое решение я и Сам изначально написал, вопрос > в том, что бы не использовать массив объявленный до рекурсивной функции. Кхм.. Ну получили массив, а выводить как будете? Типа вещь в себе? Тогда так #!/usr/bin/perl use strict; use warnings; my $path = shift; &dir($path); sub dir($) { my $dir = shift; my $dh; opendir $dh, $dir; while ( my $sub = readdir $dh) { next if $sub =~ /^\.\.?$/; no strict; push @dirs, "$dir/$sub" if -d "$dir/$sub"; &dir("$dir/$sub") if -d "$dir/$sub"; } closedir $dh; } no strict; for(@dirs){print $_,"\n";}
	Ответить \| Правка \| Наверх \| Cообщить модератору


	7. "получить дерево каталогов с заданием корневого каталога"	+/–
	Сообщение от Александр (??), 09-Янв-14, 12:37
	> Кхм.. Ну получили массив, а выводить как будете? > Типа вещь в себе? > my $a; sub test_rec { my ($end, $ref) = @_; my @arr; push @arr, $ref if ($ref); push @arr, $end; for(my $i =1; $i < $end; $i++) { test_rec($end - $i, \@arr); } return \@arr; } $a = test_rec(2, $a); print "\n\n@{$a}"."\n\n"; print @_."\n" for @{$a}; Давайте для начала измению немного задачу, не будем привязываться к дереву папок, с этим у меня вопрососв нет. На данный момент вопрос в рекурсии, например приведенный выше пример скрипта, как я понимаю должен возвращать масив по ссылке (return \@arr;), пробовал и по значению, всё равно не работает. Вся "магия" происходит на этапе return, при каждой итерации рекурсии, удаляется по одному элементу их массива.
	Ответить \| Правка \| Наверх \| Cообщить модератору


	8. "получить дерево каталогов с заданием корневого каталога"	+/–
	Сообщение от Pahanivo (ok), 10-Янв-14, 08:12
	> sub test_rec { > ... > ... > my @arr; > ... > return \@arr; > } Я давно на перле не пЕсал - но чет мне кажется что возвращать ссылку на массив который объявлен как "my" внутри блока не есть гут ))
	Ответить \| Правка \| Наверх \| Cообщить модератору


	9. "получить дерево каталогов с заданием корневого каталога"	+/–
	Сообщение от михалыч (ok), 10-Янв-14, 10:25
	> Я давно на перле не пЕсал - но чет мне кажется что > возвращать ссылку на массив который объявлен как "my" внутри блока не > есть гут )) Да, согласен! Область видимости переменных никто не отменял. Всё дело в рекурсии, каждый вызов объявляет новый манипулятор каталога и новый массив. Короче, не прокатит. Массивов бояться на перле не пейсать )) Мы боимся и потому почти обойдёмся без них. Вот те же яица, вид профиль с циклом for, без массива для "складирования" полученных директорий и с живым print'ом )) #!/usr/bin/perl use strict; use warnings; my $path = $ARGV[0] \|\| "/home"; sub tree { my $root = shift; my $dh; opendir $dh, $root; my @dir = readdir $dh; closedir $dh; for my $subdir (@dir) { next if $subdir eq "." or $subdir eq ".."; print "$root/$subdir\n" and tree("$root/$subdir") if -d "$root/$subdir"; } } tree $path;
	Ответить \| Правка \| Наверх \| Cообщить модератору


	10. "получить дерево каталогов с заданием корневого каталога"	+/–
	Сообщение от pavlinux (ok), 10-Янв-14, 16:28
	> Вся "магия" происходит А вам обязательно юзать свой код? На CPAN полно же готовых модулей. File::Find; File::Next; use File::Next; my $iter = File::Next::dirs(@ARGV[0]); while ( defined ( my $dirs = $iter->() ) ) { print $dirs, "\n"; }
	Ответить \| Правка \| К родителю #7 \| Наверх \| Cообщить модератору


	11. "получить дерево каталогов с заданием корневого каталога"	+/–
	Сообщение от Pahanivo (ok), 10-Янв-14, 23:19
	> А вам обязательно юзать свой код? На CPAN полно же готовых модулей. дайти людям вдоволь поеб**ься, чеж вы их советами то мучаете )))
	Ответить \| Правка \| Наверх \| Cообщить модератору


	12. "получить дерево каталогов с заданием корневого каталога"	+/–
	Сообщение от Александр (??), 12-Янв-14, 14:38
	Я наконец-то реализовал то что хотел, вот код: sub collect_directorys_tree { my ($root) = @_; my @res; push @res, "$root" if ( -d "$root" ); opendir my($dh), $root; my @dir = readdir $dh; closedir $dh; if(@dir == 2) { return @res } for my $subdir (@dir) { next if $subdir eq "." or $subdir eq ".."; push @res, collect_directorys_tree("$root\\$subdir") if ( -d "$root\\$subdir" ); } return @res; } #всем спасибо за помощь!
	Ответить \| Правка \| Наверх \| Cообщить модератору


	13. "получить дерево каталогов с заданием корневого каталога"	+/–
	Сообщение от михалыч (ok), 12-Янв-14, 20:31
	ещё вариант яиц )) #!/usr/bin/perl use strict; use warnings; my $path = shift \|\| "/home"; sub tree { my $root = shift; my $dirs = shift; opendir my($dh), $root; while (my $subdir = readdir $dh) { next if $subdir eq "." or $subdir eq ".."; push @$dirs, "$root/$subdir" if -d "$root/$subdir"; tree("$root/$subdir", $dirs) if -d "$root/$subdir"; } closedir $dh; return @$dirs; } print $_,"\n" for my @tree_dirs = tree $path;
	Ответить \| Правка \| Наверх \| Cообщить модератору


	14. "получить дерево каталогов с заданием корневого каталога"	+/–
	Сообщение от ACCA (ok), 13-Янв-14, 21:13
	Учебная задача сделана, но в боевую систему такое ставить нельзя. - дерево может в память не влезть - в дереве могут оказаться симлинки - и даже рекурсивные симлинки
	Ответить \| Правка \| К родителю #12 \| Наверх \| Cообщить модератору


	15. "получить дерево каталогов с заданием корневого каталога"	+/–
	Сообщение от михалыч (ok), 14-Янв-14, 08:31
	> Учебная задача сделана, но в боевую систему такое ставить нельзя. > - дерево может в память не влезть > - в дереве могут оказаться симлинки > - и даже рекурсивные симлинки согласен с вами
	Ответить \| Правка \| Наверх \| Cообщить модератору