Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Системное программирование > Динамическое изменение кода во время работы

Автор: loginn 28.8.2011, 21:26

Есть динамический массив. Каждый элемент массива содержит имя ключа следующего по иерархии хэша.

Нужно перебрать этот массив, и на каждой итерации проверить, существует ли такой ключ...

Если проверять только первый уровень иерархии, то все легко и просто. Но если появляются второй и и т.д. то не понятно, как на первой итерации обращаться к ключу первой иерархии, на второй - к ключу второй иерархии и т.д.

%hash{level1_key}{level2_key}{level3_key}...{levelN_key}
т.е. мне непонятно, как сделать так, чтобы в зависимости номера итерации обращаться к ключу соответствующей глубины.

итерация 0:
  if $hash{$array[0]} {

  }

итерация 1:
  if ($hash{$array[0]}{$array[1]}) {

  }

итерация 2:
  if ($hash{$array[0]}{$array[1]}{$array[2]}) {

  }

и т.д.

итерация 2:
  if ($hash{$array[0]}{$array[1]}{$array[2]}...{$array[N]}){

  }

т.е. на каждой итерации изменяется не значение аргумента оператора if, а сам аргумент.

Вот голову ломаю, как воплотить это в жизнь...

Заранее спасибо всем, кто поделится дельными советами!

Автор: DurRandir 29.8.2011, 00:56

Сделать рекурсивную функцию, в которую передавать аргументами имя ключа и ссылку на текущей уровень, т.е.

Код


sub f{
  my ($hash, $key) = @_;

  if ($hash{$key}){
     ..
     f($hash{$key}, $key2};
  }
}

Автор: loginn 29.8.2011, 09:06

Я хотел примерно что-то типо этого:

Код


#!/usr/bin/perl

$hash{key1} = {};
$hash{key1}{key2} = 'YES';
$hash{key1}{key3} = 'NO';
$hash{key1}{key4} = {};
$hash{key1}{key4}{key5} = 'Hui Znaet';

@k = ('key1','key2');
@k2 = ('key1','key3');
@k3 = ('key1','key4','key5');

$r = &dinamic (\@k);
$r2 = &dinamic (\@k2);
$r3 = &dinamic (\@k3);

print $r, "\n", $r2, "\n", $r3, "\n";

sub dinamic {
  my ($ref, $exp, $code, $rezult);
  $ref = shift;
  foreach (@{$ref}) {
    $exp  .= '{'."$_".'}';
  }
  $code .= "if (\$hash$exp) {return \$hash$exp}\n";
  if ($rezult = eval "$code") {return $rezult;}
}

Вот только можно ли без использования eval сделать что-то подобное?

Автор: arto 29.8.2011, 16:11

# perl -le '$a->{aa}->{bb}->{cc}->{dd} = 1; sub AA { my ( $hash, @ary ) = @_; return 1 unless (@ary); return exists $hash->{$ary[0]} ? AA($hash->{shift @ary}, @ary) : 0 } print AA($a, qw(aa bb cc))'
1
#

Автор: loginn 30.8.2011, 12:27

Код


...
if ($r = &exst(\%commands, @command)) {&$r(\@arguments)};
...
sub exst {  
  my ($ref, @arg) = @_;
  $key = shift @arg;
  if (${$ref}{$key}) { 
    if (@arg) { exst (${$ref}{$key}, @arg); }
    else { return ${$ref}{$key}; }
  }
}
...

ок. всем спасибо. разобрался.