|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : tsypa@forest.pu.ru 2:5030/266 14 Nov 2003 20:41:40
To : All
Subject : will not stay shared
--------------------------------------------------------------------------------
снаружи b(),потому что передавать параметрами весь необходимый зоопарк
лень, но не делать их глобальными. В a() в начале ещё некотороая
инициализация должна происходить.
Всё работает, но ругается:
Variable "$a" will not stay shared at ./t.pl line 10.
Как удовлетворить транслятор?
И.
#!/usr/bin/perl
use strict;
use warnings;
sub a () {
my $a = 1;
sub b () {
$a++;
}
b();
b();
$a;
}
print a(), "\n";;
--- ifmail v.2.12.os.sensi
* Origin: /kernel: last message repeated 2 times (2:5030/266@fidonet)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
