VPF::Реген из массива в хэш - Форум программистов

Гость_mcx

Дата 15.12.2004, 21:29 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Всем привет!

Проблема вот в чем:

У меня есть массив вот таких значений:

Код


local @items=(
'item1=value1',
'item2=value2',
'item3=value3'
);

ну так вто надо перевести в хэш такого вида:

Код


local %items=(
'item1'=>'value1',
'item2'=>'value2',
'item3'=>'value3',
);

Что посоветуете???

Гость_mcx

Дата 15.12.2004, 21:30 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

причем забыл нужно не тривиальный способ типа там foreach split etc. а более оригинальный , например, с использованием map но у меня так не получается ))

chaos

Дата 16.12.2004, 12:40 (ссылка)

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

Загрузка ...

Серийный программист

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

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

вот тебе примерчик для размышления
%hash = map {getkey($_) => $_ } @array;

Это сообщение отредактировал(а) chaos - 16.12.2004, 12:43

chaos

Дата 16.12.2004, 12:55 (ссылка)

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

Загрузка ...

Серийный программист

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

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

вот тебе еще готовый пример, может подойдет:

Код


@items=('item1=value1','item2=value2','item3=value3');

%hash = map {getkey($_) => getval($_) } @items;

foreach (keys %hash) {
  print $_." => ".$hash{$_}."\n";
}

sub getkey {
  my $s= $_[0];
  $s=~s/(.+)\=.+/$1/;  
  return $s;
}

sub getval {
  my $s = $_[0];
  $s =~ s/.+\=(.+)/$1/;
  return $s;
}

Добавлено @ 13:01

Цитата

а чем тебя foreach неустраивает ??

chaos

Дата 16.12.2004, 13:08 (ссылка)

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

Загрузка ...

Серийный программист

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

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

Вот еще могу один пример предложить, более компактный и ОРИГИНАЛЬНЫЙ:

Код


@items=('item1=value1','item2=value2','item3=value3');

%hash = map {/(.+)\=(.+)/, $1 => $2 } @items;

while (($k,$v) = each %hash) {
  print "$k => $v\n";
}

ps: за порядок вывода элементов не ручаюсь smile

Это сообщение отредактировал(а) chaos - 16.12.2004, 13:16

Kiber_rat

Дата 23.12.2004, 10:17 (ссылка)

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

Загрузка ...

MACMANIAC

Профиль
Группа: Участник
Сообщений: 276
Регистрация: 18.4.2002
Где: Ashdod, Israel

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

Думаю такой вариант тоже неплохо смотрится ;)

Код


@items=qw(q=1 w=2 e=3 r=4);
%hash=map {split /=/} @items;
print "$_ = $hash{$_}\n" for sort keys %hash'

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

Best regards!
@..@_____Ku6ep
=*=______\______KPbIC

Код

print join "",map{chr}(split/(\w{2})/,hex(int(2175.57302796298**2)))

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