Могу ли я определить блок кода в Perl?

Question

Как и в #define (директива препроцессора) на C, существует ли способ определить блок кода в perl.

use constant PI=>3.14; 

Нравится программа? Поделись с друзьями! Могу ли я сделать то же самое с блоком кода?

Следующая часть кода не работает. Как я могу достичь того же?

use constant FUN=>{ 
$i=3; 
while($i) 
{ 
    print "$i\n";--$i;} 
} 

Answer 1

Используйте ключевое слово sub, чтобы определить функцию. В отличие от предварительной обработки langage, почти бесполезно в языке сценариев, например perl.

Answer 2

У Perl нет макросов. (Достаточно сумасшедший программист мог подделать их с использованием исходных фильтров, но лучше всего избегать такой черной магии.) use constant не вызывает встроенную замену, как это делает препроцессор C. Вместо этого он создает подпрограмму, которая всегда возвращает одно и то же значение. Когда вы пишете

use constant PI => 3.14; 

что делает Perl является (по существу)

sub PI() { 3.14 } 

constant прагма может использоваться только для определения значений, а не код. Чтобы повторно использовать код, определите подпрограмму.

Answer 3

Большинство людей пишут, что (дать или взять позиционирование брекетов), как:

sub FUN 
{ 
    my $i = 3; 
    while ($i) 
    { 
     print "$i\n"; 
     --$i; 
    } 
} 

Вы можете сделать:

my $FUN = sub { print "$_\n" foreach (qw(3 2 1)); }; 
&$FUN(); 

Answer 4

Try/улов в Perl может быть реализован следующим образом:

eval { 
    # do something 
    die "Exception1\n" if $something_not_right; 
}; 
if ($@) { 
    for ($@) { 
    /Exception1/ && do { handle_excp1(); last; }; 
    /Exception2/ && do { handle_excp2(); last; }; 
    die "Don't know how to handle $@\n"; 
    }; 
}; 

Конечно, вам не нужно использовать строковый литерал для исключения. Любая ссылка на объект.