2012/6/25 Alexandr Alexeev <[email protected]>:
> юзаю sub MY_PERL_CONSTANT { 12345 } или use constant что то же самое.

Без прототипа, это просто процедура.

% perl -MO=Deparse -e 'sub QWE { 5 }; print QWE'
sub QWE {
    5;
}
print QWE();
-e syntax OK


% perl -MO=Deparse -e 'sub QWE() { 5 }; print QWE'
sub QWE () { 5 }
print 5;
-e syntax OK


-- 
Varyanick I. Alex
icq: 102 575 440
skype: cono..
[email protected]
-- 
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить