ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Andrey Ustinov                       2:5020/400     11 Aug 2000  22:35:24
 To : All
 Subject : ref to hash
 -------------------------------------------------------------------------------- 
 

 Здравствуйте, уважаемые!
 
 Тут возник такой вопросик: как правильно использовать ссылку на хеш. А
 именно вот этот код работает в принципе правильно (т.е. выдает то что нужно)
 но без use strict. Если добавить этот пресловутый strict, то %second не
 формируется (что странно - ошибка при этом не выдается).
 Итак, оставляю вас наедине с кодом:
 -------------- cut here -----------------
 use strict   # при добавлении етого зверя вторая часть скрипта перестает
 выводиться (ошибка не выбается)
 use vars qw /%first $ref %second/;
 %first=('one','roman','second','ivan');
 while (my ($k,$v)=each%first) {
  print "$k -- $v<br>";
  }
 
 $ref='second';
 
 %$ref=%first; # а вот здесь мне эту ссылочку на хеш и поставить бы (КАК БЫ
 ЭТО ПРАВИЛЬHО СДЕЛАТЬ?)
 while (my ($k,$v)=each%second) {
  print "$k -- $v<br>"; # если есть стрикт - не выводиться, без него все ОК
  }
 -------------- cut here -----------------
 
 Заодно спрошу, что за зверь такой strict  и нужен ли он вообще, а то может
 ну его на ....
 
 Заранее спасибо.
 Андрей.
 --- ifmail v.2.15dev5
  * Origin: Tambov State Technical University (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    ref to hash   Andrey Ustinov   11 Aug 2000 22:35:24   ref to hash   Konstantin Osipov   12 Aug 2000 19:21:23