Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Загадочная переменная 2  (Прочитано 6235 раз)
0 Пользователей и 1 Гость смотрят эту тему.
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« : 06-06-2013 10:40 » 

Проверяю доступность переменных my, объявленных в пакете. Это нечто вроде закрытых статических членов класса.

Базовый класс:
Код: (Perl) MyTest.pm
#!/usr/bin/perl

package MyTest;
use strict;
use warnings 'all';

my $int;
sub init { $int = 2 }
sub get_int { $int }

1;

Дочерний класс:
Код: (Perl) MyTest2.pm
#!/usr/bin/perl

package MyTest2;
use strict;
use warnings 'all';

use MyTest;
our @ISA = ('MyTest');
sub init { $MyTest::int = 20 }
sub get_int { $MyTest::int }

1;

Тест:
Код: (Perl) test.pl
#!/usr/bin/perl

use strict;
use warnings 'all';
use 5.010;

use MyTest2;

MyTest::init;
say 'MyTest: ', MyTest::get_int;
MyTest2::init;
say 'MyTest2: ', MyTest2::get_int;
say 'MyTest: ', MyTest::get_int;

Результат:
MyTest: 2
MyTest2: 20
MyTest: 2

Получается, что в MyTest2::init была создана новая переменная. Подмечу, что use warnings all и use strict, но ошибок нет. А вот если в MyTest.pm закомментировать объявление «my $int», то будут ошибки в обоих init(). Пока не нашел обоснование в документации.

Проверил: это я создал открытую переменную пакета:

Цитата
Код: (Perl)
sub init { $MyTest::int = 20 }
« Последнее редактирование: 06-06-2013 10:47 от RXL » Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 06-06-2013 11:44 » 

Объясняется очень просто. Переменная «my $int» принадлежит файлу. В методах MyTest возникает замыкание. По этому эту переменную нигде больше увидеть нельзя. Присвоение $MyTest::int приводит к возникновению переменной, принадлежащей пакету. Хотя у них одинаковые имена, но это разные переменные.
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines