[Moscow.pm] Readonly vs Const::Fast

[Ali Ramazanov]

Будте осторожны с 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 <q на cono.org.ua> написал:
> 2012/6/25 Alexandr Alexeev <afiskon на gmail.com>:
>> юзаю 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..
> q на cono.org.ua
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org