Будте осторожны с sub и use constant, попробуйте выполнить этот код:
#!/usr/bin/perl
use strict;
use warnings;
use constant iVar => 2;
sub rcVar { 2 };
warn iVar * 2;
warn rcVar * 2;
результат будет разным по понятным причинам:)
4 at ./test.pl line 9.
2 at ./test.pl line 10.
25 июня 2012 г., 16:14 пользователь Alex Varyanick <[email protected]> написал:
> 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
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
