|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Anatoly Moskovsky 2:5020/400 01 Oct 2000 18:11:51
To : All
Subject : Самомодифицирующаяся программа
--------------------------------------------------------------------------------
Привет!
Как заставить перл подхватить изменения в тексте модуля? Повторный вызов
require не помогает. Hиже пример (неработающий). Должен выдавать "23", а
выдает "22".
my $mod = "func.pl";
changepl($mod,2);
require $mod;
print &f;
changepl($mod,3);
require $mod;
print &f;
sub changepl
{
my ($mod,$a) = @_;
open F, ">$mod" || die "Can't open.";
print F <<eof;
1;
sub f
{
return $a;
}
eof
close F;
}
Бай
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
