Глобальная переменная

 
0
 
Perl
ava
comtat | 30.09.2007, 20:27
В ядре(core.pm) определяю объект класса DAAL_mysql

..
use lib "../lib";
use DAAL_mysql;
use auth;
..
# Database get connected
my $mysql_connect = new DAAL_mysql();
$mysql_connect->DAAL_mysql($sys);
my $dbh = $mysql_connect->Connect();
..

как сделать как, что бы можно было получить доступ к этому объекту
из других модулей подключенных в ядре ??
На текущий момент делаю через геттер, т.е. в ядре создал функцию

sub getDBH {
return $mysql_connect;
}

и во всех подключенных модулях делаю так
getDBH()->DoInsertQuery("session", "session, userID, time, ip, host", \%data);

Можно ли как -нибудь реализовать без использования геттера ??
Ответы (5)
ava
Nab | 30.09.2007, 20:11 #
Вместо my напиши our, и будет она глобальная, только не думаю что это правильно... лучше оставить как было...
ava
nitr | 01.10.2007, 08:56 #
Лучше оставить... И через метод отдавать на него ссылку...
ava
comtat | 01.10.2007, 20:44 #
Спасибо огромное !!!
ava
biophreak | 02.10.2007, 13:48 #
Хм а нельзя объявить переменную в общем файле(подозреваю, что лоадере модулей), а потом просто ее модифицировать?
ava
comtat | 02.10.2007, 14:01 #
Цитата (biophreak @ 2.10.2007, 13:48 findReferencedText)
Хм а нельзя объявить переменную в общем файле(подозреваю, что лоадере модулей), а потом просто ее модифицировать?

Она и так создается глобально - ядре системы
Зарегистрируйтесь или войдите, чтобы написать.
Фирма дня
Вы также можете добавить свою фирму в каталог IT-фирм, и публиковать статьи, новости, вакансии и другую информацию от имени фирмы.
Подробнее
Участники
  nitr   Nab   comtat   biophreak
advanced
Отправить