forum.opennet.ru - "Как передать переменную модулю ?" (2)

форумы

помощь

поиск

регистрация

майллист

ВХОД

слежка

"Как передать переменную модулю ?"

Форумы Программирование под UNIX (Public)
Вариант для распечатки		Архивированная нить - только для чтения! Пред. тема \| След. тема
Изначальное сообщение		[Проследить за развитием треда]

"Как передать переменную модулю ?"
Сообщение от RUSLAN on 13-Янв-03, 14:12 (MSK)
сабж
	Рекомендовать в FAQ \| Cообщить модератору \| Наверх

Оглавление

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "RE: Как передать переменную модулю ?"

Сообщение от Plus on 14-Янв-03, 15:55 (MSK)

>сабж
Если под модулем ты имеешь ввиду package, то можешь сделать следующее.
1)
#!/usr/bin/perl
my $var;
Test::Func($var);
exit(0);
package Test;
$test_var;
sub Func{
my($self,$val)=@_;
$test_var=$val;
}
1;
2) Обязательно local
#!/usr/bin/perl
local $var;
Test::Func();
exit(0);
package Test;
$test_var;
sub Func{
$test_var=$main::var;
}
1;

Рекомендовать в FAQ | Cообщить модератору | Наверх

2. "RE: Как передать переменную модулю ?"

Сообщение от RUSLAN on 21-Янв-03, 00:53 (MSK)

Спасибо, то что надо ! :-)

Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.

Партнёры:

Хостинг:

1. "RE: Как передать переменную модулю ?"
Сообщение от Plus on 14-Янв-03, 15:55 (MSK)
>сабж Если под модулем ты имеешь ввиду package, то можешь сделать следующее. 1) #!/usr/bin/perl my $var; Test::Func($var); exit(0); package Test; $test_var; sub Func{ my($self,$val)=@_; $test_var=$val; } 1; 2) Обязательно local #!/usr/bin/perl local $var; Test::Func(); exit(0); package Test; $test_var; sub Func{ $test_var=$main::var; } 1;
	Рекомендовать в FAQ \| Cообщить модератору \| Наверх


	2. "RE: Как передать переменную модулю ?"
	Сообщение от RUSLAN on 21-Янв-03, 00:53 (MSK)
	Спасибо, то что надо ! :-)
		Рекомендовать в FAQ \| Cообщить модератору \| Наверх