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

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

Код

#begin @1-первый произвольный массив @2-второй произвольный массив #оба массива имеют одинаковое колличество ячеек foreach($i=0;$i<$num;$i++) { %hash=("@1[$i]","@2[$i]"); } #end

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

Код

#!/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"; }

Или так...

Код

#!/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);

Э-э... Я вот тут подумал Если идля тебя не критично сохранение этих списков, то тогда так:

Код

#!/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;

Упс... Пришли к тому же Но надеюсь помогло понять...

There's more than one way to do it

[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 придумал что-нибудь на этот счёт .

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

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

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

Это сообщение отредактировал(а) Nobody - 10.6.2004, 14:06