VPF::глобальные переменные - Форум программистов

kostofffan

Дата 12.8.2005, 11:22 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Имеется модуль Parameters.pm и в нём есть такие строки:

Код


our (@ISA, @EXPORT);
@ISA = qw(Exporter);
@EXPORT = qw(&get_query &change &for_html &print_date &is_admin &upload_file &url_encoded &url_decoded);

Залил этот модуль на сервер, а у них похоже старый perl стоит, и он ругается на вот этот our. Если our заменить на my , то в программа не видит экспортируемых функций...
Короче, чем можно заменить our в этом объявлении???

Заранее спасибо!

Bolt

Дата 12.8.2005, 12:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 21
Регистрация: 21.2.2005

Репутация: нет
Всего: нет

use vars qw(…);

korob2001

Дата 13.8.2005, 01:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 31
Всего: 61

Удали вообще эту строку, где написано our. Эти массивы и так глобальны. Вообще, я вот таким макаром делаю экспорт:

Код


package Parameters;
require Exporter;
push( @ISA, 'Exporter' );
@EXPORT = qw( &get_query &change &for_html &print_date &is_admin &upload_file &url_encoded &url_decoded );
@EXPORT_OK = qw( &get_query &change &for_html &print_date &is_admin &upload_file &url_encoded &url_decoded );

# Далее идёт твой код и все экспортируемые подпрограммы и переменные

# В самом конце ставим единицу
1;

Дело в том, что я не думаю что у них стоит версия Perl ниже пятой, а если это так, то лучшее вообще поменять хост, потому как ты так и не узнаешь прелестей ООП, Unicode, да и ещё много чего.

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »