Автор Тема: Perl vs Require  (Прочитано 2981 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн FANTAzeRus

  • Завсегдатай
  • Пользователь
  • **
  • Сообщений: 93
  • +0/-0
  • 0
    • Просмотр профиля
Perl vs Require
« : 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

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

Оффлайн Phoinix

  • RW
  • Ветеран
  • *****
  • Сообщений: 1097
  • +0/-0
  • 2
    • Просмотр профиля
    • http://phoinix.ucoz.ru
Perl vs Require
« Ответ #1 : 23 Ноября 2003, 15:07:22 »
FANTAzeRus
Во втором файле напиши:
use vars \'$path\';

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

Оффлайн metton

  • access granted
  • Старожил
  • ****
  • Сообщений: 320
  • +0/-0
  • 2
    • Просмотр профиля
    • http://bluejack.ru/
Perl vs Require
« Ответ #2 : 24 Ноября 2003, 00:57:55 »
2Phoinix
Эээ... А не легче ли просто создавать переменные с лексической областью видимости?
Т.е.,
my $path="../../data";
 BlueJacking среди нас

Оффлайн Wyclef

  • hello_worlder
  • Старожил
  • ****
  • Сообщений: 307
  • +0/-0
  • 2
    • Просмотр профиля
    • http://thug.narod.ru
Perl vs Require
« Ответ #3 : 24 Ноября 2003, 01:14:58 »
[off]2metton
попробуй ;) (с require)[/off]
It\'s nice to be important, but it\'s more important to be nice!

Оффлайн metton

  • access granted
  • Старожил
  • ****
  • Сообщений: 320
  • +0/-0
  • 2
    • Просмотр профиля
    • http://bluejack.ru/
Perl vs Require
« Ответ #4 : 24 Ноября 2003, 01:53:49 »
2Wyclef
Ой, мля :)
Даже пробовать не буду. Понял, что ступил...
 BlueJacking среди нас

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28