ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Michael Kulakov                      2:5020/52      10 Jan 2001  23:51:28
 To : All
 Subject : Re: Declare and init hash
 -------------------------------------------------------------------------------- 
 

 
 > Disclaimer: чисто с позиций всяких там извращений. Hеизвращенцев
 > прошу не беспокоиться.
 
 ... эпитет опущен.
 
 > use strict;
 > use Data::Dumper;
 > my @keys = qw(a b c);
 > my @values = qw(1 2 3);
 > my %hash;
 > @hash{@keys} = @values;
 > print Dumper \%hash;
 
 Можно писать:
 
 my %hash; %hash{ @keys } = @values;
 
 что бы радовало глаз, но если очень хочется и условием является только
 *одна* строка, то:
 
 my %hash = eval { local @_{ @keys } = @values; %_ };
 
 Вот только зачем? Получается лишнее копирование по памяти и тд. 
 
 Тогда лучше:
 
 my $hash = getHashRefFromMyParams ( \ @keys, \ @values ) и не морочить
 голову.
 
 С уважением,
   Михаил Кулаков
 --- Mozilla 4.75 [en] (X11; U; Linux 2.2.14-5.0 i686)
  * Origin: Zenon (2:5020/52.0)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Re: Declare and init hash   Michael Kulakov   10 Jan 2001 23:51:28   Re: Declare and init hash   Michael Samanov   11 Jan 2001 06:02:59