Perlでコードブロックを定義できますか？

Question

C言語の#define（プリプロセッサディレクティブ）のように、perlでコードブロックを定義する方法はありますか？

use constant PI=>3.14; 

このように、変数のみを定義できます。 コードブロックで同じことを実行できますか？

次のコード部分は機能しません。どうすれば同じことができますか？

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

Answer 1

キーワードを使用して、機能を定義します。 C言語とは異なり、前処理はperlなどのスクリプト言語ではほとんど役に立たない。

Answer 2

Perlにはマクロがありません。 （十分に熟知されたプログラマは、ソースフィルタを使ってそれらを偽造することができますが、そのような黒い魔法は避けてください）。代わりに、常に同じ値を返すサブルーチンを作成します。あなたは

use constant PI => 3.14; 

を書くときにPerlが何をするか（基本的に）

sub PI() { 3.14 } 

constantプラグマは値だけではなく、コードを定義するために使用することができています。コードを再利用するには、代わりにサブルーチンを定義します。

Answer 3

ほとんどの人が通り（括弧の位置を与えるか、または取る）ことを記述します。あなたが行うことができ

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

：Perlで

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

Answer 4

のtry/catchは、この方法を実装することができます。

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"; 
    }; 
}; 

もちろん、例外をスローするために文字列リテラルを使用する必要はありません。どのオブジェクト参照でも可能です。