Perlのeval関数の使用例

Perlはリアルタイムにコードを生成して実行するスクリプト言語です。この機能により、コードのコンパイルが実行時に延期されるため、quot;ダイナミックコード"と呼ばれています。また、PerlはJavaやC++のような例外処理機構を備えています。今回は、Perlの動的コードと例外処理機構を実装している関数、evalについて説明します。もし間違いがあれば、遠慮なく議論・批判してください。

eval関数は、Perlのコードの一部を引数とするPerlの仮想マシンと考えることができます。eval 関数の使い方は 'perldoc -f eval' で知ることができます。

EXPRは、例えば、以下のような表現です。

実行されると、Perl インタープリタはまず式の値を解析し、その式の値を Perl ステートメントとして現在の実行コンテキストに挿入します。つまり、新しく生成された文は eval 文自身と同じコンテキスト環境を持つことになります。このようにして、eval 文が実行されるたびに、式が解析されます。そのため，ループの中で eval EXPR が実行されると，式は何度も解析されることになります．このように eval を使うことで，Perl スクリプトはリアルタイムにコードを生成し，実行することができますので，動的コード (dynamic code) を実現することができます．

BLOCKは、次のようなコードのブロックです。

最初のアプローチとは異なり、BLOCK は一度だけパースされ、その後、現在の eval 関数の実行コンテキストにその全体が挿入されます。パースによるパフォーマンス上の利点と、コンパイル時にコードの構文をチェックできることから、このアプローチは、前者のアプローチも可能ですが、Perlとしてコードの一部に例外捕捉機構を提供するためによく使用されます。

eval 引数プログラムは、ヘルプ名で "ミニプログラム" と呼ばれています。いずれの場合も、eval 関数の戻り値はミニプログラムの最後の文の値であり、戻り値文に遭遇した場合はサブルーチンと同じになります。

Script1:

出力します。

アプレットがシンタックスエラー、ランタイムエラー、または die ステートメントを起こした場合、eval は undef を返します。エラーコードは$@に格納されます。

Script2:

出力します。

Script3です。