ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrew Alakozow                      2:5061/6       14 May 2003  14:16:44
 To : Alexander Orlovsky
 Subject : Re: Сгенерировать хеш хешей
 -------------------------------------------------------------------------------- 
 

  AO> Имеем массив
 AO> @dvals
 
 AO> Hужно создать хэш
 
 AO> $Hash{elem1}{elem2}..{elemN} = $str,
 
 AO> где elem1...elemN -- это элементы массива @dvals
 
 my @a = qw(1 2 3 4 5);
 
 my %h = %{a2h(\@a)};
 
 print $h{1}{2}{3}{4}{5};
 
 sub a2h {
  my @a = @{$_[0]};
 
  return 'str' unless @a;
  return { shift(@a) => a2h(\@a) };
 
 }
 
 aa29
 --- Microsoft Outlook Express 6.00.2720.3000
  * Origin: Life In The Dark (2:5061/6)
 
 

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