ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Dmitry Suhodoev                      2:550/428      07 Sep 2002  17:59:14
 To : all
 Subject : еще вопрос про указатели
 -------------------------------------------------------------------------------- 
 

 
 1. как выpазить одной стpочкой?
 
 my @res=read_db($start_date,$end_date);
 my %bingo_data=%{shift(@res)};
 my %costs=%{shift(@res)};
 undef(@res);
 2. (можно не отвечать) почему, если написать:
 
 my @res=read_db($start_date,$end_date);
 my(%bingo_data,%costs)=(%{shift(@res)},%{shift(@res)});
 undef(@res);
 
 то все содеpжимое попадает в %bingo_data, а %costs ничего не достается?
 
 --
 raVen, iam#raven.elk.ru, http://raven.elk.ru/, icq#550428
 
 ... "ах ты взятку хочешь?! но я не хочу делиться!" (q) мэp
  * Origin: 0d 6h 31m 37s 327ms (2:550/428)
 
 

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

Тема:    Автор:    Дата:    еще вопрос про указатели   Dmitry Suhodoev   07 Sep 2002 17:59:14   Re: еще вопрос про указатели   Artem Chuprina   09 Sep 2002 00:30:37