|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Artem Chuprina 2:5020/400 15 Nov 2003 19:18:26 To : tsypatsypa%forest.pu.ru@f266.n5030. Subject : Re: will not stay shared -------------------------------------------------------------------------------- Хмутро. >> tfpr> Всё работает, но ругается: >> tfpr> Variable "$a" will not stay shared at ./t.pl line 10. >> tfpr> sub a () { >> tfpr> my $a = 1; >> tfpr> sub b () { >> tfpr> $a++; >> tfpr> } >> tfpr> b(); >> tfpr> } tfpr> > Могут быть засады с долговременным выполнением этого безобразия, когда tfpr> > функции tfpr> > периодически переопределяются. Определение b() заменить на tfpr> > my $sub_b = sub { $a++ }; tfpr> Погоди. Причём тут долговременное выполнение и переопределение функций?? При том, что sub b () - это ты при каждом выполнении a() переопределяешь глобальную функцию. -- Artem Chuprina RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/122.256, ICQ: 13038757 --- ifmail v.2.15dev5.1 * Origin: Leninsky 45 home network (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/114776e26e93a.html, оценка из 5, голосов 10
|