сабж

• RE: Как передать переменную модулю ?,Plus, 15:55 , 14-Янв-03
  • RE: Как передать переменную модулю ?,RUSLAN, 00:53 , 21-Янв-03

>сабж

Если под модулем ты имеешь ввиду 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;

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