|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Yuriy Talakan' 2:5042/13.13 15 Jun 2005 22:22:10 To : All Subject : Модуль --------------------------------------------------------------------------------
Как в модуле получить доступ к глобальной переменной?
Основная программа:
require "/usr/local/bin/Mod1.pm";
$var='A';
do_sub();
Модуль (/usr/local/bin/Mod1.pm):
BEGIN {
@EXPORT = '&do_sub';
}
sub do_sub()
{
print $main::var;
print $var;
}
END {}
1;
И на экран ничего не выходит. :(
<yt@amur.elektra.РУ> ICQ:100884824 [Team -=_Hard Izvrashchentsy_=-]
--- В кустах раздался девичий крик, медленно переходящий в женский стон.
* Origin: -=*Cool YurTa*=- (2:5042/13.13)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/1503642b01d8b.html, оценка из 5, голосов 10
|