Форум программистов [Powered by Invision Power Board]

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

Форум программистов > Perl: Общие вопросы > хеш из двух списков?

Автор: everyone 8.6.2004, 13:42

кто-нибудь знает как сделать из двух @списков один %хеш, в котором keys будут из первого списка, а values из другого списка, кроме того, чтобы они точно соответствовали, то есть первая ячейка первого списка должна соответствовать первой ячейке второго списка, вторая ячейка, другой второй ячейке и т.д.

я пытался сделать это при помощи for:

Код


#begin @1-первый произвольный массив @2-второй произвольный массив
#оба массива имеют одинаковое колличество ячеек

foreach($i=0;$i<$num;$i++)
{
%hash=("@1[$i]","@2[$i]");
}

#end

хоть и понял глупость своей ошибки, но ничего более подходящего не написал.
Да и кроме того это мой первый опыт программирования на perl

.
И ещё, есть кто-нибудь к кому постоянно можно обращаться с подобного рода проблемами,? буду невероятно благодарен за нехлопотную помощ.

Автор: Nobody 8.6.2004, 14:31

Код


#!/usr/bin/perl -wT
use strict;
my @keys =  ("key1", "key2");
my @values = ("value1", "value2");
my %hash;

for (my $i = 0; $i < scalar(@keys); $i++) {
        $hash{$keys[$i]} = $values[$i];
}

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

Автор: Kiber_rat 9.6.2004, 03:30

Или так...

Код

#!/usr/bin/perl -w
my @arr1 = (1,2,3,4,5);
my @arr2 = qw(a b c d e);
my (%hash, $i);
map {$hash{$_} = $arr2[$i++]} @arr1;
print "$_=$hash{$_}\n" for sort (keys %hash);

Автор: Kiber_rat 9.6.2004, 04:10

Э-э... Я вот тут подумал

Если идля тебя не критично сохранение этих списков, то тогда так:

Код

#!/usr/bin/perl -w
my %hash;
my @arr1 = (1,2,3,4,5);
my @arr2 = qw(a b c d e);
$hash{$_} = shift @arr1 for @arr2;
print "$_=$hash{$_}\n" for sort (keys %hash);

А если таки критично тогда так:

Код

%hash = (%hash, $arr1[$_], $arr2[$_]) for (0..@arr1-1);

Кроме того, не стоит называть массивы, и вобще переменные чем либо, начинающимся на цифру.
Что касается твоего примера, то его малость доработав тоже можно юзать:

Код

for(@a){ # Зачем foreach? Это только для массивов или списков, и то... И $i не нать
     %hash{$_}=shift @b;# Если ты не знаешь что есть $_ то почитай, это весьма сладкая весчь!
}
# Или, используя постфиксный for:
%hash{$_}=shift @b for @a;

Упс... Пришли к тому же

Но надеюсь помогло понять...

Автор: Nobody 9.6.2004, 15:46

There's more than one way to do it

Автор: everyone 10.6.2004, 10:43

[q]Кроме того, не стоит называть массивы, и вобще переменные чем либо, начинающимся на цифру[/q]
это лишь пример, и не стоит его воспринимать так же категорично, как компилятор

Код


#!/usr/bin/perl -wT
use strict;
my @keys =  ("key1", "key2");
my @values = ("value1", "value2");
my %hash;

for (my $i = 0; $i < scalar(@keys); $i++) {
       $hash{$keys[$i]} = $values[$i];
}

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

что такое strict? И что это за приём с "my" ? - можно по-подробнее как это работает?
Да, кроме этого, как работает оператор ".", я интуитивно понимаю для чего он, но лучше знать его свойства в точности.

Код


#!/usr/bin/perl -w
my @arr1 = (1,2,3,4,5);
my @arr2 = qw(a b c d e);
my (%hash, $i);
map {$hash{$_} = $arr2[$i++]} @arr1;
print "$_=$hash{$_}\n" for sort (keys %hash);

а здесь тоже странноватый оператор? - sort, с которым, простите, я тоже не знаком, нельзя о нём пару слов? и о shift, если можно

.
а на счёт for и foreach, где-то я читал, что это совершенно одно и то же ???
а вот с $_ я более менее знаком, вот только не научился предсказывать его значение вне циклов, да впрочем ещё не особенно требовалось.
да и простите за offtop, для такого вопроса наверное нужно было создавать новый форум или покапаться в старых темах, но как лучше(с затратой меньшего колличества ресурсов, меньше строк кода) выяснить имена всех файлов в дирректории? Просто я делал это с помощью Dir из командной строки, потом куча преобразований списков в скаляр и обратно, получается громадный список, в котором слишком уж много лишнего и по шаблону выделять из него файлы в ещё один список - думаю это не лучший способ, наверняка Larry Wall придумал что-нибудь на этот счёт

Автор: Nobody 10.6.2004, 14:04

Цитата(everyone @ 10.6.2004, 10:43)

perldoc strict
http://www.perldoc.com/perl5.6.1/lib/strict.html

Цитата(everyone @ 10.6.2004, 10:43)

здесь тоже странноватый оператор? - sort, с которым, простите, я тоже не знаком, нельзя о нём пару слов? и о shift, если можно

perldoc sort
http://www.perldoc.com/perl5.6.1/pod/func/sort.html

perldoc shift
http://www.perldoc.com/perl5.6.1/pod/func/shift.html