ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Sergey Ivlenkov                      2:5020/400     28 Dec 2000  11:18:20
 To : All
 Subject : Re: переменные
 -------------------------------------------------------------------------------- 
 

  [Wed, 27 Dec 2000 23:00:11 +0300] Pavel Kurnosoff wrote:
 
 PK> пишем тест: 
 PK> use ForLoop; forloop { printf "%02d: %-5s - $_\n", $pos, $npos; } (1..10);
 
 PK> ...и все работает пока не включаю local $pos. тут же $pos и $npos в блоке
 PK> становятся undef. а без local - плохо, ибо имена $pos и $npos нельзя назвать
 PK> оригинальными и редкоиспользуемыми.
 
   Попробуй в модуле обрамить функцию forloop:
 
   { 
    local ($pos, $npos);
    sub forloop {
       ....
    }
   }
 
   Работает в том смысле, что:
 
   use ForLoop;
   my $pos = 100;
   print "My pos=$pos\n";
   forloop { printf "%02d: %-5s - $_\n", $pos, $npos; } (1..10);
   print "My pos=$pos\n";
   Плюсы, минусы и теория такого обрамления мне неизвестны ;)
 -- 
   Всего доброго, Сергей Ивленков
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Re: переменные   Sergey Ivlenkov   28 Dec 2000 11:18:20   Re: переменные   Sergey Ivlenkov   28 Dec 2000 11:26:29