Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Perl - рекурсивная обработка в одну строку / 4 сообщений из 4, страница 1 из 1
31.07.2013, 15:17
    #38350359
Alibek B
Alibek B
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Perl - рекурсивная обработка в одну строку
Есть примерно такой хеш:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
-key1=
  -key2=
    -key3=value3
    -key4=value4
  -key5=
      -key6
        -key7=value7
        -key8=value8
то есть хеш, значения которого являются либо скалярами, либо другим таким же хешем, уровень вложенности неограниченный.
Нужно определенным образом обработать все скалярные значения, в зависимости от других значений на этом же уровне.
К примеру, если key4=abc, то key3 нужно удалить.

Можно написать функцию, которой передается хеш, значения которого проверяются и если они hashref, то для них рекурсивно вызывается эта же функция.

А можно ли вместо функции это красиво сделать в одной строке?

________________________
Мы смотрим с оптимизмом...
...в оптический прицел.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.07.2013, 15:37
    #38350392
Alibek B
Alibek B
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Perl - рекурсивная обработка в одну строку
Сейчас задача решается примерно так:
Код: php
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
$options = $dbh->selectall_hashref("select * from OPTIONS", [qw(SECTION NAME)]);
&proc_options($options);
...
sub proc_options($)
{
        my $hash = shift;
        my $cnt = grep {ref($_)} (values(%$hash));
        if ($cnt)
        {
                &proc_options($_) foreach (values(%$hash));
                return;
        }
        $hash->{'VALUE'} = $hash->{'VALUE_'.$hash->{'DATATYPE'}};
        delete $hash->{$_} foreach(grep {/VALUE_/} keys(%$hash));
}



Но хочется сделать короче и красивее.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.07.2013, 15:39
    #38350399
Alibek B
Alibek B
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Perl - рекурсивная обработка в одну строку
Alibek B.Но хочется сделать короче и красивее.
Или другими словами, если хеши вложены друг в друга, нужно обработать хеши нижнего уровня.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.08.2013, 03:13
    #38350986
Warstone
Warstone
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Perl - рекурсивная обработка в одну строку
Alibek B.А можно ли вместо функции это красиво сделать в одной строке?Через хвостовую рекурсию.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Perl - рекурсивная обработка в одну строку / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 480ms
Закрыть
start [/forum/topic.php?fid=23&tablet=1&tid=1463562]:
 0ms
get settings:
 9ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 162ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 33ms
get tp. blocked users:
 1ms
others: 241ms
total:  480ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]