Forum Webscript.Ru

Программирование => Perl => Тема начата: FANTAzeRus от 23 Ноября 2003, 13:29:26

Название: Perl vs Require
Отправлено: FANTAzeRus от 23 Ноября 2003, 13:29:26

Имеем два Файла:

1) config.cfg

$path="../../data";

2) test.pl

#!/usr/bin/perl -w
use CGI qw(:standard);
require "config.cfg";

print header();
print "Path=$path
";

Все Работает!!! Но стоит добавить во второй файл
use strict;

Начинает выдавать ошибку:
Global symbol "$path" requires explicit package name

Подскажите как побороть??? Пробовал через создание модуля и экспорта переменной, но все равно НИЧЕГО не вышло!!! :-(

Название: Perl vs Require
Отправлено: Phoinix от 23 Ноября 2003, 15:07:22

FANTAzeRus
Во втором файле напиши:
use vars \'$path\';

Если еще будут переменные:
use vars \'$path\', [еще переменные, через запятую];

Название: Perl vs Require
Отправлено: metton от 24 Ноября 2003, 00:57:55

2Phoinix
Эээ... А не легче ли просто создавать переменные с лексической областью видимости?
Т.е.,
my $path="../../data";

Название: Perl vs Require
Отправлено: Wyclef от 24 Ноября 2003, 01:14:58

[off]2metton
попробуй ;) (с require)[/off]

Название: Perl vs Require
Отправлено: metton от 24 Ноября 2003, 01:53:49

2Wyclef
Ой, мля :)
Даже пробовать не буду. Понял, что ступил...