>>и знаешь чего, мне так кажеться что с приоритетами тут не все
>>в порядке
>Не, с приоритетами всё впорядке, хэши создаются как надо...
>Скорее всего ссылку как-то не так передаю, вопрос в том, как?:) ответ очень простой возми за правило ставить
#!/usr/bin/perl -w
use strict;
хотябы на этапе разработки программы!!!
ну а так вот:
#!/usr/bin/perl -w
use strict;
use Data::Dumper;
#change this for deep search
my @rdeep=(4,0);
#my @rdeep=(2,0);
my $debugit=1;
sub cfg_readbranch
{
$rdeep[0] == $rdeep[1]?do{print"max recdeep: $rdeep[0], stop execute\n";return}:$rdeep[1]++ if $debugit;
my ($cbranch, $C) = @_;
my (@branches, @keys, @dir) = ();
print "start scan $cbranch ...\n";
opendir(Z, $cbranch) or do{ print "can?t opendir $cbranch: $!\n"; return 0 };
@dir = readdir Z;
while(<@dir>)
{
next if /^\./;
push@branches,$_ if -d "$cbranch/$_";
push@keys,$_ if -f "$cbranch/$_";
}
closedir Z;
#$C{$_}=oslurp("$cbranch/$_") for @keys;
$C->{$_}="$cbranch/$_" for @keys;
foreach ( @branches) {
$C->{$_}= {};
cfg_readbranch("$cbranch/$_", $C->{$_} );
}
return 1;
}
my %C;
print Dumper(\%C),"\n", if cfg_readbranch('./testdir', \%C);
-------------------------------
output:
$VAR1 = {
'file2' => './testdir/file2',
'file1' => './testdir/file1',
'file3' => './testdir/file3',
'dir2' => {},
'dir1' => {
'dir5' => {},
'dir6' => {
'file1' => './testdir/dir1/dir6/file1',
'file12' => './testdir/dir1/dir6/file12'
}
}
};
Вариант для распечатки
Программирование под UNIX (Public)
(ok) on 28-Июн-07, 09:22 
