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

frenkys

Дата 29.6.2007, 23:52 (ссылка)

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

Загрузка ...

Бывалый

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

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

Имеется следующая структура:

Например файл file.pl

Код


#!/usr/bin/perl -w

require '1.pl';

print $lang;

и 1.pl :

Код


$lang='ru';
1;

когда запускаю file.pl то получаю предупреждение в логе апача мол $lang used only once , как этого избежать? Ведь мне действительно нужна она только один раз

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

niva[frenky]

nitr

Дата 30.6.2007, 00:00 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

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

только что обсуждалось... sharq сказал - our...

Код


#!/usr/bin/perl -w

our $lang;
 
require '1.pl';
 
print $lang;

Добавлено через 59 секунд
Совет: учим мат. часть ;) - это кстати основа... Вам же проще в дальнейшем будет...

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

I love ArchLinux

frenkys

Дата 30.6.2007, 00:16 (ссылка)

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

Загрузка ...

Бывалый

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

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

просто файлов штук 250 в каждом придеться прописать our?

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

niva[frenky]

nitr

Дата 30.6.2007, 00:30 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

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

если бы изначально использовали

Код


use strict;

такого бы не случилось ;)

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

I love ArchLinux

amg

Дата 30.6.2007, 12:05 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1145
Регистрация: 3.8.2006
Где: Новосибирск

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

Цитата(frenkys @ 29.6.2007, 23:52

)

$lang used only once , как этого избежать?

nitr правильно сказал. Еще можно использовать

Код


use vars qw($lang);

или вместо опции -w

Код


use warnings qw(all);
no warnings qw(once);

Цитата(frenkys @ 30.6.2007, 00:16

)

просто файлов штук 250 в каждом придеться прописать our?

Ну так ведь есть sed, awk, да тот же perl:

Код


perl -i -pe '$_ .= qq(our \$lang;\n) if m|#!/usr/bin/perl|' *.pl

nitr

Дата 30.6.2007, 12:13 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

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

amg, тут уже решалось как-то что оптимальней
use vars
или our
пришли к выводу our... ;)

Но это всё к СЛОВУ smile

ему думаю уже помогло ;)

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

I love ArchLinux

frenkys

Дата 30.6.2007, 16:24 (ссылка)

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

Загрузка ...

Бывалый

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

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

сенкс ребятки smile

Это сообщение отредактировал(а) frenkys - 30.6.2007, 21:59

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

niva[frenky]

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