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

Форум программистов > Perl: Общие вопросы > grep в массиве с хэшами

Автор: destby 8.4.2011, 15:30

1. Существует примерно такая структура: Код @in = ( value1 => {NAME => 'Name1', GROUP => 'both'}, value2 => {NAME => 'Name2', GROUP => 'both'}, value3 => {NAME => 'Name3', GROUP => 'other'}, value4 => {NAME => 'Name4', GROUP => 'both'} value5 => {NAME => 'Name5', GROUP => 'other'}, value6 => {NAME => 'Name6', GROUP => 'other'}, value7 => {NAME => 'Name7', GROUP => 'both'}, ); 2. Необходимо средствами функции 'grep' создать новый массив следующего содержания: Код @out = ( value1 => {NAME => 'Name1', GROUP => 'both'}, value2 => {NAME => 'Name2', GROUP => 'both'}, value4 => {NAME => 'Name4', GROUP => 'both'} value7 => {NAME => 'Name7', GROUP => 'both'}, ); Иными словами, убрать все элементы, которые содержат $_->{'GROUP} eq 'both' и стоящий перед ним элемент массива. Итак, немного помучался, получилось вот что: Код push @out, grep { /^\w+?$/ or $_->{'GROUP'} eq 'both' } @in; Но в этом случае получается такая структура: Код @out = ( value1 => {NAME => 'Name1', GROUP => 'both'}, value2 => {NAME => 'Name2', GROUP => 'both'}, value3, value4 => {NAME => 'Name4', GROUP => 'both'} value5, value6, value7 => {NAME => 'Name7', GROUP => 'both'}, ); Как убрать 'value3', 'value5' и 'value6'?

Автор: Jimy 8.4.2011, 16:22

Перемудрили. Код @out = grep {$_->{'GROUP'} eq 'both' } @in;

Автор: ming 8.4.2011, 16:28

Код my %hash = @in; @out = map { $_ => $hash{$_} } grep { $hash{$_}->{'GROUP'} eq 'both' } keys %hash;

Автор: destby 8.4.2011, 16:32

Цитата(Jimy @ 8.4.2011,  16:22) Перемудрили. Код @out = grep {$_->{'GROUP'} eq 'both' } @in; Так не пойдет, ведь тогда перл ругается на: Can't use string ("value1") as a HASH ref while "strict refs" in use Добавлено через 29 секунд Цитата(ming @ 8.4.2011,  16:28) Код my %hash = @in; @out = map { $_ => $hash{$_} } grep { $hash{$_}->{'GROUP'} eq 'both' } keys %hash; Тоже не пойдет, мне не в хеш надо запихнуть, а в массив

Автор: Pfailed 8.4.2011, 16:36

А зачем использовать grep там, где ему не место?

Автор: destby 8.4.2011, 16:37

Цитата(Pfailed @ 8.4.2011,  16:36) А зачем использовать grep там, где ему не место? Задание такое дали. Реализовать в одной строчке средствами 'grep'. Добавлено @ 16:43 Цитата(destby @ 8.4.2011,  16:32) Тоже не пойдет, мне не в хеш надо запихнуть, а в массив  Сорри, не заметил @out, но все равно не работает.

Автор: Pfailed 8.4.2011, 17:18

Так подойдёт? Код @out = grep { ref $_ ? ++$i && $_->{GROUP} eq 'both' : $in[++$i]->{GROUP} eq 'both'  } @in;

Автор: destby 8.4.2011, 17:26

Цитата(Pfailed @ 8.4.2011,  17:18) Так подойдёт? Код @out = grep { ref $_ ? ++$i && $_->{GROUP} eq 'both' : $in[++$i]->{GROUP} eq 'both'  } @in; Супер! То что надо!  Огромнейшее спасибо, о великий гуру!

Автор: ming 8.4.2011, 17:27

Цитата не заметил @out, но все равно не работает. да что вы говорите...  Код use strict; my @in = ( value1 => {NAME => 'Name1', GROUP => 'both'}, value2 => {NAME => 'Name2', GROUP => 'both'}, value3 => {NAME => 'Name3', GROUP => 'other'}, value4 => {NAME => 'Name4', GROUP => 'both'}, value5 => {NAME => 'Name5', GROUP => 'other'}, value6 => {NAME => 'Name6', GROUP => 'other'}, value7 => {NAME => 'Name7', GROUP => 'both'}, ); my %hash = @in; my @out = map { $_ => $hash{$_} } grep { $hash{$_}->{'GROUP'} eq 'both' } keys %hash; use Data::Dumper; print Dumper(\@in), "\n", Dumper(\@out), "\n"; правда порядок не сохраняется, не красиво, согласен.  А вообще соглашусь с Pfailed - grep'y тут не место... и еще неясно почему такая странная структура данных используется вместо логичного и уместного здесь хэша хэшей.

Автор: Pfailed 8.4.2011, 17:40

Код @out = grep { ref $_ ? $_->{GROUP} eq 'both' : /(\d+)$/ && $in[$1+$1-1]->{GROUP} eq 'both'  } @in; Входные данные еще намекают на такой вариант. Ну конечно если формат данных в задании именно такой. Плюсы: не используется внешняя переменная $i.

Автор: destby 8.4.2011, 17:41

Цитата(ming @ 8.4.2011,  17:27) А вообще соглашусь с Pfailed - grep'y тут не место... и еще неясно почему такая странная структура данных используется вместо логичного и уместного здесь хэша хэшей. Странно, но у меня не работало, пустой массив был. Такой вид массива используется для формирования csv файлов. Этот массив подается потом в функцию, которая парсит: name1 - колонка в шапке; value1 - колонка с данными из БД.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)