VPF::обьединение 2 массивов - Форум программистов

joaquin

Дата 26.3.2011, 16:41 (ссылка)

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

Загрузка ...

Новичок

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

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

Добрый день уважаемые форумчане.
Имеется два массива,предположим:
@array1=qw(1 2 3)
@array2=qw(he she they)
Необходимо обьединить 2 массива в хеш так,чтобы первый элемент первого массива был ключом хеша значением которого является первый элемент второго хеша.
Заранее спасибо.

gcc

Дата 26.3.2011, 17:38 (ссылка)

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

Загрузка ...

Агент алкомафии

Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

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

Код


$ perl -MData::Dumper -e '@a1=qw(1 2 3); @a2=qw(he she they); %$h = map { $_ => 1} @a1,@a2; print Dumper $h'

Код


$VAR1 = {
          'she' => 1,
          'they' => 1,
          '1' => 1,
          'he' => 1,
          '3' => 1,
          '2' => 1
        };

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

Perl FAQ
freelance
perl, jquery, js, php
perl, jquery

gcc

Дата 26.3.2011, 17:54 (ссылка)

(голосов:1)

Загрузка ...

Агент алкомафии

Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

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

полностью не дочитал задание, вот вариант более подходящий:

Код


perl -MData::Dumper -e '@a1=qw(1 2 3); @a2=qw(he she they); %$h = map { $a1[$_] =>  $a2[$_] } 0..$#a1; print Dumper $h'
$VAR1 = {
          '1' => 'he',
          '3' => 'they',
          '2' => 'she'
        };

Это сообщение отредактировал(а) gcc - 26.3.2011, 17:54

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

Perl FAQ
freelance
perl, jquery, js, php
perl, jquery

joaquin

Дата 26.3.2011, 18:00 (ссылка)

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

Загрузка ...

Новичок

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

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

Нужно слияние в итоге которого получится хеш наподобие приведенного ниже:
%хеш = {
                 'he' => '1',
                 'she' => '2',
                 'they' => '3'
                }

Добавлено через 6 минут и 50 секунд
Спасибо пользователю gcc за предоставленный ответ(помогло).А есть ли решение скажем без применения модуля?В обычном цикле перечислить элементы массивов с последующим добавлением в хеш.Бьюсь над этой задачей.

joaquin

Дата 26.3.2011, 18:37 (ссылка)

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

Загрузка ...

Новичок

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

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

Решено

#!/usr/bin/perl

@array1=qw(1 2 3 );
@array2=qw(he she they);

for ($i=0;$i<@array1;$i++) {
$k=$array1[$i];
$hash{$k}=$array2[$i];
}
направление нашел в ответе gcc ,за что ему еще раз большое спасибо!

Pfailed

Дата 26.3.2011, 19:16 (ссылка)

(голосов:1)

Загрузка ...

Опытный

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

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

Вот еще интересный вариант

Код


use List::MoreUtils 'pairwise';

my @a = qw(1 2 3);
my @b = qw(a b c);
my %hash = pairwise { $a => $b } @a, @b;

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

I'm on CPAN
I'm on github

ming

Дата 30.3.2011, 19:30 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 97
Регистрация: 30.1.2009
Где: Новосибирск

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

Код


my %hash;
@hash{@array1} = @array2;

vivu

Дата 30.3.2011, 21:16 (ссылка)

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

Загрузка ...

Новичок

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

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

Голосую за вариант предложенный ming'ом. Это самый красивый вариант, из Perl Cookbook.

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