ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Ivan Frolcov 2:5020/175.2 15 Jan 2001 13:24:31
To : Michael Samanov
Subject : Re: Declare and init hash
--------------------------------------------------------------------------------
MS>> Теперь начинаем корячиться, пытаясь сделать объявление и
MS>> инициализацию хэша в один оператор...
MS> Так никто не знает или просто все стесняются ответить?
Шаркая ножкою...
use Data::Dumper;
my(@k)=qw(1 2 3 4 5);
my(@v)=qw(1 2 3 4 5);
my(%hash)= ( (map { $k[$_] => $v[$_] } grep {$_%2} (0..$#k)) ,
map { $k[$_] => $v[$_] } grep {! ($_%2)} (0..$#k));
print Dumper \%hash;
--- ifmail v.2.15
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
