Создаю "библиотеку":

Код

# this is test.inc use constant STR1 => 'This is string 1';

И читаю её так:

Код

#!/usr/bin/perl use strict; use warnings; use constant INC_FILE => 'test.inc'; my $return = do INC_FILE; unless ($return) {     warn "couldn't parse ".INC_FILE.": $@" if $@;     warn "couldn't do "   .INC_FILE.": $!" unless defined $return;     warn "couldn't run "  .INC_FILE unless $return;     return 0; } print "Str1 = ".STR1."\n";

Результат: ругается в самой последней строке на STR1; вообще не видит во внешнем сценарии ни переменных, ни функций из test.inc.

Вариант с вызовом препроцессора ключом -P работает, но он не годится - на той машине не будет препроцессора.

Вариант с модулем отложен на крайний случай, как наиболее монстроидальный.

А зачем тебе нужны константы?

Код

$STR1 = "This is string 1";

Код

#!/usr/bin/perl use strict 'subs', 'refs'; do ("test.inc"); print "Str1 = $STR1\n";

Это сообщение отредактировал(а) korob2001 - 10.12.2005, 03:57

ilya_evseev какая необходимость объявлять конмтанты в стороннем файле?
Если тебе нужно с помощью констант настраивать скрипт, то используй другие методы, например, ini-файл или файл твоей произвольной структуры.

Мне нужны не только константы, а константы, глобальные переменные и функции. Был большой сценарий, делавший одну задачу - обработку данных. Теперь нужен генератор отчёта. Понятно, что можно вынести общий код в модуль, или дописать код в существующий сценарий и сделать разбор командной строки, чтобы вызывать первый или второй кусок. Но мне хотелось сделать нечто, аналогичное #include "file.c" без сишного препроцессора на рабочем сервере (тем более, что perl требует не cpp, а gcc - представляю, сколько там автоматом установится лишнего).

В итоге: пример от Korob2001 работает только для переменных, и только при частично отключённых предупреждениях (если запускать perl с ключом -w, то он свалится). Функции не видны, константы тоже.

<offtopic>Общее замечание: по-моему (мелкие утилиты, типа HyperStat или MicroBackup, пишу на нём с 98 года), Perl своей избыточной сложностью перевешивает свои же преимущества.</offtopic>

Const.pm

Код

package Const; use strict; use vars qw(@ISA @EXPORT); @ISA = qw(Exporter); use Exporter; @EXPORT = qw/STR1 /; use constant STR1 => 'This is string 1'; 1;

my.pl

Код

use strict; use lib '.'; use Const; print "Str1 = " . STR1 ;