Продолжаю заморачиваться тут с этой прогой. С функциями разобрался с помощью ondr, а вот с хэшами что-то никак.
У меня есть функция которая андефит значения ключей, типа так:
sub flushGlobalHashes {
#my $type=uc(shift);
for (keys %DATA::RUTS) {
$DATA::RUTS{$_}=undef unless (/rn|rutid|cn|channel/);
}
}
Но вот хэши могут быть 4 видов (а точнее 4 хэша разных):
%DATA::RAL, %DATA::OFT, %DATA::RUTS, %DATA::CIRC, не хотелось бы писать для каждого из них процедуру, тем более что в приведенной выше порцедуре переменная $type (закоментирована) содержит предикат хэша (OFT,RAL,RUTS и т.д в зависимости от типа данных).
Как мне в данном случае работать с хэшом?
Спасибо.