forum.opennet.ru - "Хэш массивов" (11)

форумы

помощь

поиск

регистрация

майллист

вход/выход

слежка

"Хэш массивов"

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

"Хэш массивов"
Сообщение от Cyrus_user on 05-Апр-07, 06:58
Привет, есть несколько хэшей, некоторые ключи у них совпадают. хочу объединить хэши, чтобы ключи остались уникальными, а все значения стали массивами. Или я не туда пошёл... вообщем у меня такие входные данные я получаю разномастную статистику в таком виде $hash{$ident}="some1" из кучи сборщиков статистики получаю пачку хэшей, где в большинстве ключи $ident совпадают, но есть и встречающиеся по 1-му разу. в глобальный сборщик пытаюсь передать примерно такое: $hash{$ident_total}=@array, где @array=(hash1{$ident},hash2{$ident}) и если значения отсутствуют, то просто ноль. но что-то ничего в голову не лезет, подсказку не дадите? застрял на этапе формирования массива из значений всех уникальных ключей хэшей.
Высказать мнение \| Ответить \| Правка \| Cообщить модератору

Оглавление

Хэш массивов, A, 09:55 , 05-Апр-07, (1)

Хэш массивов, Cyrus_user, 08:32 , 06-Апр-07, (3)

Хэш массивов, ACCA, 01:52 , 06-Апр-07, (2)

Хэш массивов, Cyrus_user, 09:05 , 06-Апр-07, (4)

Хэш массивов, Cyrus_user, 12:54 , 06-Апр-07, (5)

Хэш массивов, A, 14:18 , 06-Апр-07, (6)

Хэш массивов, Cyrus_user, 06:25 , 09-Апр-07, (7)

Хэш массивов, A, 09:21 , 09-Апр-07, (8)

Хэш массивов, Cyrus_user, 10:09 , 09-Апр-07, (9)

Хэш массивов, Cyrus_user, 10:33 , 09-Апр-07, (10)

Хэш массивов, smb_looser, 08:02 , 10-Апр-07, (11)

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

1. "Хэш массивов"

Сообщение от A on 05-Апр-07, 09:55

>Привет,
>есть несколько хэшей, некоторые ключи у них совпадают. хочу объединить хэши, чтобы
>ключи остались уникальными, а все значения стали массивами.
>Или я не туда пошёл... вообщем у меня такие входные данные
>я получаю разномастную статистику в таком виде $hash{$ident}="some1"
>из кучи сборщиков статистики получаю пачку хэшей, где в большинстве ключи $ident
>совпадают, но есть и встречающиеся по 1-му разу.
>в глобальный сборщик пытаюсь передать примерно такое:
>$hash{$ident_total}=@array, где @array=(hash1{$ident},hash2{$ident}) и если значения отсутствуют, то просто ноль.
>но что-то ничего в голову не лезет, подсказку не дадите? застрял на
>этапе формирования массива из значений всех уникальных ключей хэшей.
# данные
%h1=qw/a 1 b 2/;
%h2=qw/a 3 c 4/;
# решение
%h=();
foreach (\%h1, \%h2) {
  while (($a, $b)=each(%$_)) {
    push @{$h{$a}}, $b
  }
}

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

3. "Хэш массивов"

Сообщение от Cyrus_user on 06-Апр-07, 08:32

>>Привет,
>>есть несколько хэшей, некоторые ключи у них совпадают. хочу объединить хэши, чтобы
>>ключи остались уникальными, а все значения стали массивами.
>>Или я не туда пошёл... вообщем у меня такие входные данные
>>я получаю разномастную статистику в таком виде $hash{$ident}="some1"
>>из кучи сборщиков статистики получаю пачку хэшей, где в большинстве ключи $ident
>>совпадают, но есть и встречающиеся по 1-му разу.
>>в глобальный сборщик пытаюсь передать примерно такое:
>>$hash{$ident_total}=@array, где @array=(hash1{$ident},hash2{$ident}) и если значения отсутствуют, то просто ноль.
>>но что-то ничего в голову не лезет, подсказку не дадите? застрял на
>>этапе формирования массива из значений всех уникальных ключей хэшей.
>
># данные
>%h1=qw/a 1 b 2/;
>%h2=qw/a 3 c 4/;
># решение
>%h=();
>foreach (\%h1, \%h2) {
>  while (($a, $b)=each(%$_)) {
>    push @{$h{$a}}, $b
>  }
>}
ага, спасибо за подсказку, вроде получается
foreach $k (sort keys %h){print "$k: @{$h{$k}}\n"                                                                           }

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

2. "Хэш массивов"

Сообщение от ACCA (ok) on 06-Апр-07, 01:52

>$hash{$ident_total}=@array, где @array=(hash1{$ident},hash2{$ident}) и если значения
> отсутствуют, то просто ноль.
Насколько нужно хранить раздельные значения? Нельзя просто сложить их, если они числовые?
foreach $h (\%hash1 \%hash2 ...) {
     foreach $k (keys %{ $h }) {
         $$h{$k} =~ /clean up regex/;
         $global_stat{$k} += $1;   # ну, или что там ты получил
     }
}

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

4. "Хэш массивов"

Сообщение от Cyrus_user on 06-Апр-07, 09:05

>>$hash{$ident_total}=@array, где @array=(hash1{$ident},hash2{$ident}) и если значения
>> отсутствуют, то просто ноль.
>
>Насколько нужно хранить раздельные значения? Нельзя просто сложить их, если они числовые?
Хранить обязательно, складывать нельзя. Возможно я сначала сумбурно обьяснил, попытаюсь заново, на простом примере:
получаю 2 хэша такого содержения.
%h_in{$user_mail}=$messages_in #получено сообщений
%h_out{$user_mail}=$messages_out #отправлено сообщений
какой-то конкретный $user_mail может отсутствовать в одном из кэшей, если он не полуали или не отправлял сообщения.
Хочу получить новый хэш, где ключ $user_mail, а значение @data=($messages_in,messages_out)
причём если значения нет (ключ+значение отсутствует в одном из кэшей) то в массив всё равно ставим 0.
>foreach $h (\%hash1 \%hash2 ...) {
>     foreach $k (keys %{ $h }) {
>
>         $$h{$k} =~ /clean up regex/;
>         $global_stat{$k} += $1;
>  # ну, или что там ты получил
>     }
>}
в принципе A мне показал как это делать, на ваш пример заставил задуматься, а так ли мне нужен массив в значениях, проще будет в дальнейщем работать со строкой, которую получу из сложения значений в хэшах как строк, а не чисел. что-то типа $global_stat{$k} .= $$h{$k};

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

5. "Хэш массивов"

Сообщение от Cyrus_user on 06-Апр-07, 12:54

у меня ещё вопрос по хэшам:
как посмотреть определённый ключ по конкретному значению без цикла перебора всего хэша?
допустим есть готовый хэш вида $h1{$mail}=$uid ключ $mail, значение $uid
в цикле ниже я заполняю другой хэш $h2{$mail}=$var из строки где всегда присутствует $uid, но не всегда $mail. мне же ключом нужен именно $mail.
тогда, если при разборе не удалось выяснить $mail, но известен $uid то я хочу сделать так:
$h2{где ключ, ключ из $h1 полученный по значению $uid}=$var
вот тут и застрял :( делать reverse %h1 нельзя, потому что uid уникален
если это невозможно, придётся изобретать конструкцию замены названий ключей в %h2

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

6. "Хэш массивов"

Сообщение от A on 06-Апр-07, 14:18

я, честно говоря, не смог понять что надо :-) тут нигде опечатка не закралась?

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

7. "Хэш массивов"

Сообщение от Cyrus_user on 09-Апр-07, 06:25

>я, честно говоря, не смог понять что надо :-) тут нигде опечатка
>не закралась?
ммм, попробую ещё раз c примером.
есть готовый хэш вида $h1{cyrus@domen.ru}=cyrus_user в переменных так: $h1{$mail}=$uid
далее, другой хэш заполняю в такой виде $h2{cyrus@domen.ru}='какое-то значение' (в переменных: $h2{$mail}=$size).
заполнение %h2 идёт из такой строки
mail=cyrus@domen.ru uid=cyrus size=123
где берутся $mail и $size
однако, строка может принять вид:
mail=<> uid=cyrus size=123
тогда, чтобы получить $mail, нужно в %h1 найти по $uid ключ $mail и подставить полученный ключ $mail, как ключ в %h2. вот что-то такое:
$h2{где ключ, значение ключа из %h1 полученный по значению $uid}=$size

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

8. "Хэш массивов"

Сообщение от A on 09-Апр-07, 09:21

кажется понял :-)
а почему вы пишите
> делать reverse %h1 нельзя, потому что uid уникален
как раз с уникальным-то можно

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

9. "Хэш массивов"

Сообщение от Cyrus_user on 09-Апр-07, 10:09

>кажется понял :-)
>а почему вы пишите
>> делать reverse %h1 нельзя, потому что uid уникален
>как раз с уникальным-то можно
уникальный то он для задачи..
#ключ $mail, значение $uid
my %h1=('cyrus@domen.ru' => 'cyrus',
        'admin@domen.ru' => 'cyrus');
my %h2=reverse %h1;
while(($key,$value) = each %h1){print "$key -> $value\n";}
while(($key,$value) = each %h2){print "$key => $value\n";}
$ ./2test.pl
cyrus@domen.ru -> cyrus
admin@domen.ru -> cyrus
cyrus => cyrus@domen.ru
если сделаю reverse, тоесть значения станут ключами и наоборот, то тогда в данной хэше повторяющийся ключ $uid будет иметь только одно значение (какое-то там по индексам хэша, сам перл придумает).

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

10. "Хэш массивов"

Сообщение от Cyrus_user on 09-Апр-07, 10:33

>>кажется понял :-)
>>а почему вы пишите
>>> делать reverse %h1 нельзя, потому что uid уникален
>>как раз с уникальным-то можно
>
>уникальный то он для задачи..
>
>#ключ $mail, значение $uid
>my %h1=('cyrus@domen.ru' => 'cyrus',
>        'admin@domen.ru' => 'cyrus');
>my %h2=reverse %h1;
>while(($key,$value) = each %h1){print "$key -> $value\n";}
>while(($key,$value) = each %h2){print "$key => $value\n";}
>
>$ ./2test.pl
>cyrus@domen.ru -> cyrus
>admin@domen.ru -> cyrus
>cyrus => cyrus@domen.ru
>
>если сделаю reverse, тоесть значения станут ключами и наоборот, то тогда в
>данной хэше повторяющийся ключ $uid будет иметь только одно значение (какое-то
>там по индексам хэша, сам перл придумает).
хотя тут я опять стал думать в контексте задачи..
если поле mail пустое, то не всё ли равно какой mail по uid подставлять? ;)
в конечной статистике оперирование пойдёт по $uid-ам и их привязке к отделам.
вообщем всю концепцию переработаю, но вопрос остаётся в силе.
заполнение %h3 идёт из такой строки
mail=cyrus@domen.ru uid=cyrus size=123
где берутся $mail, $uid и $size
однако, строка может принять вид:
mail=<> uid=cyrus size=123
тогда я хочу вот так (выше для %h2 сделал reverse):
if ($mail "<>") {
$h3{$h2{$uid}}+=$size;
}
на что получаю:
Use of uninitialized value in concatenation (.) or string
вот собственно как в %h3 сделать ключом значение, полученное из %h2 по ключу?
равно как и первоначальная задача была в %h3 сделать ключом ключ из %h1, полученный по значению.

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

11. "Хэш массивов"

Сообщение от smb_looser on 10-Апр-07, 08:02

все вопросы снимаются, внимательно прочитал
http://www.opennet.me/docs/RUS/perl_hash/perl_hash-perl.html.gz
всем спасибо

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

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

Индекс форумов | Темы | Пред. тема | След. тема

Партнёры:

Хостинг:

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

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

1. "Хэш массивов"
Сообщение от A on 05-Апр-07, 09:55
>Привет, >есть несколько хэшей, некоторые ключи у них совпадают. хочу объединить хэши, чтобы >ключи остались уникальными, а все значения стали массивами. >Или я не туда пошёл... вообщем у меня такие входные данные >я получаю разномастную статистику в таком виде $hash{$ident}="some1" >из кучи сборщиков статистики получаю пачку хэшей, где в большинстве ключи $ident >совпадают, но есть и встречающиеся по 1-му разу. >в глобальный сборщик пытаюсь передать примерно такое: >$hash{$ident_total}=@array, где @array=(hash1{$ident},hash2{$ident}) и если значения отсутствуют, то просто ноль. >но что-то ничего в голову не лезет, подсказку не дадите? застрял на >этапе формирования массива из значений всех уникальных ключей хэшей. # данные %h1=qw/a 1 b 2/; %h2=qw/a 3 c 4/; # решение %h=(); foreach (\%h1, \%h2) { while (($a, $b)=each(%$_)) { push @{$h{$a}}, $b } }
Высказать мнение \| Ответить \| Правка \| Наверх \| Cообщить модератору


	3. "Хэш массивов"
	Сообщение от Cyrus_user on 06-Апр-07, 08:32
	>>Привет, >>есть несколько хэшей, некоторые ключи у них совпадают. хочу объединить хэши, чтобы >>ключи остались уникальными, а все значения стали массивами. >>Или я не туда пошёл... вообщем у меня такие входные данные >>я получаю разномастную статистику в таком виде $hash{$ident}="some1" >>из кучи сборщиков статистики получаю пачку хэшей, где в большинстве ключи $ident >>совпадают, но есть и встречающиеся по 1-му разу. >>в глобальный сборщик пытаюсь передать примерно такое: >>$hash{$ident_total}=@array, где @array=(hash1{$ident},hash2{$ident}) и если значения отсутствуют, то просто ноль. >>но что-то ничего в голову не лезет, подсказку не дадите? застрял на >>этапе формирования массива из значений всех уникальных ключей хэшей. > ># данные >%h1=qw/a 1 b 2/; >%h2=qw/a 3 c 4/; ># решение >%h=(); >foreach (\%h1, \%h2) { > while (($a, $b)=each(%$_)) { > push @{$h{$a}}, $b > } >} ага, спасибо за подсказку, вроде получается foreach $k (sort keys %h){print "$k: @{$h{$k}}\n" }
	Высказать мнение \| Ответить \| Правка \| Наверх \| Cообщить модератору

2. "Хэш массивов"
Сообщение от ACCA (ok) on 06-Апр-07, 01:52
>$hash{$ident_total}=@array, где @array=(hash1{$ident},hash2{$ident}) и если значения > отсутствуют, то просто ноль. Насколько нужно хранить раздельные значения? Нельзя просто сложить их, если они числовые? foreach $h (\%hash1 \%hash2 ...) { foreach $k (keys %{ $h }) { $$h{$k} =~ /clean up regex/; $global_stat{$k} += $1; # ну, или что там ты получил } }
Высказать мнение \| Ответить \| Правка \| Наверх \| Cообщить модератору


	4. "Хэш массивов"
	Сообщение от Cyrus_user on 06-Апр-07, 09:05
	>>$hash{$ident_total}=@array, где @array=(hash1{$ident},hash2{$ident}) и если значения >> отсутствуют, то просто ноль. > >Насколько нужно хранить раздельные значения? Нельзя просто сложить их, если они числовые? Хранить обязательно, складывать нельзя. Возможно я сначала сумбурно обьяснил, попытаюсь заново, на простом примере: получаю 2 хэша такого содержения. %h_in{$user_mail}=$messages_in #получено сообщений %h_out{$user_mail}=$messages_out #отправлено сообщений какой-то конкретный $user_mail может отсутствовать в одном из кэшей, если он не полуали или не отправлял сообщения. Хочу получить новый хэш, где ключ $user_mail, а значение @data=($messages_in,messages_out) причём если значения нет (ключ+значение отсутствует в одном из кэшей) то в массив всё равно ставим 0. >foreach $h (\%hash1 \%hash2 ...) { > foreach $k (keys %{ $h }) { > > $$h{$k} =~ /clean up regex/; > $global_stat{$k} += $1; > # ну, или что там ты получил > } >} в принципе A мне показал как это делать, на ваш пример заставил задуматься, а так ли мне нужен массив в значениях, проще будет в дальнейщем работать со строкой, которую получу из сложения значений в хэшах как строк, а не чисел. что-то типа $global_stat{$k} .= $$h{$k};
	Высказать мнение \| Ответить \| Правка \| Наверх \| Cообщить модератору

5. "Хэш массивов"
Сообщение от Cyrus_user on 06-Апр-07, 12:54
у меня ещё вопрос по хэшам: как посмотреть определённый ключ по конкретному значению без цикла перебора всего хэша? допустим есть готовый хэш вида $h1{$mail}=$uid ключ $mail, значение $uid в цикле ниже я заполняю другой хэш $h2{$mail}=$var из строки где всегда присутствует $uid, но не всегда $mail. мне же ключом нужен именно $mail. тогда, если при разборе не удалось выяснить $mail, но известен $uid то я хочу сделать так: $h2{где ключ, ключ из $h1 полученный по значению $uid}=$var вот тут и застрял :( делать reverse %h1 нельзя, потому что uid уникален если это невозможно, придётся изобретать конструкцию замены названий ключей в %h2
Высказать мнение \| Ответить \| Правка \| Наверх \| Cообщить модератору


	6. "Хэш массивов"
	Сообщение от A on 06-Апр-07, 14:18
	я, честно говоря, не смог понять что надо :-) тут нигде опечатка не закралась?
	Высказать мнение \| Ответить \| Правка \| Наверх \| Cообщить модератору


	7. "Хэш массивов"
	Сообщение от Cyrus_user on 09-Апр-07, 06:25
	>я, честно говоря, не смог понять что надо :-) тут нигде опечатка >не закралась? ммм, попробую ещё раз c примером. есть готовый хэш вида $h1{cyrus@domen.ru}=cyrus_user в переменных так: $h1{$mail}=$uid далее, другой хэш заполняю в такой виде $h2{cyrus@domen.ru}='какое-то значение' (в переменных: $h2{$mail}=$size). заполнение %h2 идёт из такой строки mail=cyrus@domen.ru uid=cyrus size=123 где берутся $mail и $size однако, строка может принять вид: mail=<> uid=cyrus size=123 тогда, чтобы получить $mail, нужно в %h1 найти по $uid ключ $mail и подставить полученный ключ $mail, как ключ в %h2. вот что-то такое: $h2{где ключ, значение ключа из %h1 полученный по значению $uid}=$size
	Высказать мнение \| Ответить \| Правка \| Наверх \| Cообщить модератору


	8. "Хэш массивов"
	Сообщение от A on 09-Апр-07, 09:21
	кажется понял :-) а почему вы пишите > делать reverse %h1 нельзя, потому что uid уникален как раз с уникальным-то можно
	Высказать мнение \| Ответить \| Правка \| Наверх \| Cообщить модератору


	9. "Хэш массивов"
	Сообщение от Cyrus_user on 09-Апр-07, 10:09
	>кажется понял :-) >а почему вы пишите >> делать reverse %h1 нельзя, потому что uid уникален >как раз с уникальным-то можно уникальный то он для задачи.. #ключ $mail, значение $uid my %h1=('cyrus@domen.ru' => 'cyrus', 'admin@domen.ru' => 'cyrus'); my %h2=reverse %h1; while(($key,$value) = each %h1){print "$key -> $value\n";} while(($key,$value) = each %h2){print "$key => $value\n";} $ ./2test.pl cyrus@domen.ru -> cyrus admin@domen.ru -> cyrus cyrus => cyrus@domen.ru если сделаю reverse, тоесть значения станут ключами и наоборот, то тогда в данной хэше повторяющийся ключ $uid будет иметь только одно значение (какое-то там по индексам хэша, сам перл придумает).
	Высказать мнение \| Ответить \| Правка \| Наверх \| Cообщить модератору


	10. "Хэш массивов"
	Сообщение от Cyrus_user on 09-Апр-07, 10:33
	>>кажется понял :-) >>а почему вы пишите >>> делать reverse %h1 нельзя, потому что uid уникален >>как раз с уникальным-то можно > >уникальный то он для задачи.. > >#ключ $mail, значение $uid >my %h1=('cyrus@domen.ru' => 'cyrus', > 'admin@domen.ru' => 'cyrus'); >my %h2=reverse %h1; >while(($key,$value) = each %h1){print "$key -> $value\n";} >while(($key,$value) = each %h2){print "$key => $value\n";} > >$ ./2test.pl >cyrus@domen.ru -> cyrus >admin@domen.ru -> cyrus >cyrus => cyrus@domen.ru > >если сделаю reverse, тоесть значения станут ключами и наоборот, то тогда в >данной хэше повторяющийся ключ $uid будет иметь только одно значение (какое-то >там по индексам хэша, сам перл придумает). хотя тут я опять стал думать в контексте задачи.. если поле mail пустое, то не всё ли равно какой mail по uid подставлять? ;) в конечной статистике оперирование пойдёт по $uid-ам и их привязке к отделам. вообщем всю концепцию переработаю, но вопрос остаётся в силе. заполнение %h3 идёт из такой строки mail=cyrus@domen.ru uid=cyrus size=123 где берутся $mail, $uid и $size однако, строка может принять вид: mail=<> uid=cyrus size=123 тогда я хочу вот так (выше для %h2 сделал reverse): if ($mail "<>") { $h3{$h2{$uid}}+=$size; } на что получаю: Use of uninitialized value in concatenation (.) or string вот собственно как в %h3 сделать ключом значение, полученное из %h2 по ключу? равно как и первоначальная задача была в %h3 сделать ключом ключ из %h1, полученный по значению.
	Высказать мнение \| Ответить \| Правка \| Наверх \| Cообщить модератору


	11. "Хэш массивов"
	Сообщение от smb_looser on 10-Апр-07, 08:02
	все вопросы снимаются, внимательно прочитал http://www.opennet.me/docs/RUS/perl_hash/perl_hash-perl.html.gz всем спасибо
	Высказать мнение \| Ответить \| Правка \| Наверх \| Cообщить модератору