VPF::Хэш. Цикл по первым значениям - Форум программистов

meridian

Дата 26.2.2014, 12:27 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 95
Регистрация: 8.11.2005

Репутация: нет
Всего: нет

Коллеги, добрый день!
Есть хэш

Код


%hash=( 'k1' => 'var1, var2',
        'k2' => 'var3',  var6'
    'k3' => 'var4, var5'
);

foreach my $rec ( sort keys %hash )
{
    printf "$hash{$rec}\n";
}

Получаем
var1, var2
var3, var6
var4, var5

Подскажите плиз, можно ли реализовать цикл только по первым значениям хэша, т.е. var1, var3, var4 ?
Спасибо!

Bulat

Дата 26.2.2014, 12:47 (ссылка)

(нет голосов)

Загрузка ...

татарский Нео

Профиль
Группа: Завсегдатай
Сообщений: 1701
Регистрация: 22.3.2006
Где: Альметьевск

Репутация: 5
Всего: 57

Цитата(meridian @ 26.2.2014, 12:27

)

Подскажите плиз, можно ли реализовать цикл только по первым значениям хэша, т.е. var1, var3, var4 ?

sort values

при этом необходимо задать свою функцию сортировки.

Например:

Код


my %hash = ( 
  'k1' => 'var1, var2',
  'k2' => 'var7, var6',
  'k3' => 'var4, var5'
);

foreach my $rec ( sort by_first_var values %hash )
{
    printf "$rec\n";
}

sub by_first_var {
  ($a =~ /^var(\d)/)[0] <=> ($b =~ /^var(\d)/)[0]
}

Это сообщение отредактировал(а) Bulat - 26.2.2014, 12:48

--------------------

менеджер по кодеврайтингу smile

Jimy

Дата 26.2.2014, 12:49 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 177
Регистрация: 4.7.2010

Репутация: нет
Всего: 3

Если хэш формируется выше по коду, то можно сформировать его подходящим образом, например так

Код


%hash=(
'k1' => ['var1', 'var2'],
'k2' => ['var3', 'var6'],
'k3' => ['var4', 'var5']
);

и тогда в цикле получить первое значение можно так

Код


foreach my $rec ( sort keys %hash )
{
    printf "$hash{$rec}[0]\n";
}

Если же нет возможности повлиять на формирование этой структуры, тогда нужно разбивать строку, как-то так:

Код


foreach my $rec ( sort keys %hash )
{
    my @values = split(/\,\s*/, $hash{$rec});
    printf "$values[0]\n";
}

meridian

Дата 26.2.2014, 12:59 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 95
Регистрация: 8.11.2005

Репутация: нет
Всего: нет

Спасибо!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »